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INTRODUCTION 


i  2 

yThe  objective  of  Project  OPAQUE  ’  is  to  gather  continuous  data 
from  a  series  of  measurements  in  the  visible  and  infrared  regions  over 
a  period  of  several  years.  This  requirement  for  the  continuous  data 
recording  of  the  various  experiments  has  resulted  in  a  large  data  base 
that  must  be  catalogued,  accessed,  edited,  reduced,  and  reformatted 
for  analysis  and  study.  Concurrent  with  the  management  of  the  data 
base  is  the  requirement  of  maintaining  the  central  data  logger  system 
and  its  control  programs  at  the  West  Germany  field  site. 

This  report  describes  all  of  the  additional  control  programs  and 
procedures  that  have  been  developed  during  this  contract  period  to 
generate,  edit,  process,  and  analyze  the  digital  data  tapes  and  is 
divided  into  two  parts.  Part  I  of  this  report  describes  the  data 
collection  phase,  the  cataloging  and  access  to  the  data  base,  and  the 
sensor  performance  and  analysis.  Part  II  describes  the  additional 
programs  developed  for  the  data  searching  and  stripping  procedures, 
generation  of  the  OPAQUE  data  bank  files,  along  with  the  plotting, 
selection,  and  display  procedures  for  subsequent  experimental 
analysis.  _ _  _ _ 

3 

The  program  design  objectives  developed  during  previous  efforts 
on  this  task  have  been  retained  and  refined  in  the  development  of  the 
additional  programs  described  herein.  Extensive  use  is  made  of 
procedure  files  to  link  the  necessary  programs  to  perform  specific 
tasks,  and  thereby  simplify  their  use  as  analysis  tools. 


Fenn,  R.W.  (1978)  OPAQUE-A  Measurement  Program  on  Optical 
Atmospheric  Quantities  in  Europe,  Volume  I,  the  NATO  Proqram, 
AFGL-TR-78-OOl 1 ,  AD  B029877L. 


,  Special  Reports,  No. 


3.  Powers,  J.E.,  and  Dirkman,  R.J.  (1978)  The  Development  and 

Support  of  the  NATO  Project  OPAQUE  USAF  System  Control  Programs, 


1.1  EXPERIMENT  SAMPLING  SEQUENCES 


Due  to  the  changing  experimental  requirements,  the  data  channel 
assignments  and  sampling  rates  have  undergone  a  number  of  revisions 
over  the  past  three  years.  Table  1.  The  Data  Channel  Assignments, 
given  below  reflects  the  changes  in  the  experimental  data  values 
sampled  and  recorded,  along  with  the  various  sampling  rates  programmed 
for  each  data  channel.  It  should  be  noted  that  the  data  channel 
numbers  are  in  octal  (base  8)  which  accounts  for  the  fact  that 
channels  8,9,18,19,28,29,38,  and  39  do  not  appear  in  the  table.  Each 
data  channel  has  two  discrete  digits  assigned  to  it  which  are  used  to 
record  filter  positions,  gain  steps,  etc.  The  unused  discrete  data 
digits  on  several  of  the  data  channels  as  used  to  record  the  digital 
output  of  the  sun  sensor,  the  digital  rain  gauge,  and  the  ceiling 
meter.  The  mnemonics  listed  in  the  table  are  derived  in  most  cases 
from  the  instrument  names  and  are  used  to  identify  the  data  in  the 
HISTOGRAM  and  DATA  PROFILE  plots. 

Each  data  channel  is  formatted  and  recorded  as  a  36-bit  string, 
grouped  as  9  hexadecimal  digits.  The  interpretation  of  these  36-bit 
strings  is  as  follows: 

BITS  INTERPRETATION 

0-3  Always  the  coding  for  the  data  sync  character,  1101. 

4-7  High-order  analog  channel  address,  octal. 

8-11  Low-order  analog  channel  address,  octal. 

12-15  Tens  digit  of  discrete  data  channel,  decimal. 

16-19  Units  digit  of  discrete  data  channel,  decimal. 

20-23  1000's  digit  of  digitized  channel  voltage,  decimal. 

24-27  100's  digit  of  digitized  channel  voltage,  decimal. 

28-31  10's  digit  of  digitized  channel  voltage,  decimal. 

32-35  l's  digit  of  digitized  channel  voltage,  decimal. 


Table  1.  Data  Channel  Assignment  for  Jan.,  1978  to  Oct.,  1980. 


I 

I 


E  .* 


* 


Channel 

Mnemonic 

Sensor  Output  Sampled 

Sampling  Rate 

0 

AGE 

AEG,  trailer-side  unit 
See  NOTE  1 

1  min-continuous. 

1 

Open  (formerly  MRU ) 

1  min-continuous. 

1 

SNTL 

Changed  June,  1979  to 
Laser  Scintillometer 

1  min-continuous. 

2 

Open  (formerly  MRI2) 

1  min-continuous. 

3 

Open  (formerly  MRI3) 

1  min-continuous. 

3 

SNTL 

Changed  January,  1979 
Laser  Scintillometer 

to 

1  min-continuous. 

3 

Changed  June,  1979  to 
Open 

1  min-continuous. 

3 

AEG2 

Changed  October,  1980  to 

AEG, 2  meter  tower  height  20  sec-continuous. 

4 

LTRO 

Eltro,  Horizontal  path 

1  min-continuous. 

5 

NPH1 

NPFM,  Filter 

1  miri-continuous. 

6 

NPH2 

NPFM,  Photopic 

1  min-continuous. 

7 

NPH3 

NPFM,  Range 

1  min-continuous. 

10 

Not  Used 

11 

VLB1 

VPFM,  Photopic 

1  sec/10  min/hour. 

12 

VLB2 

VPFM,  Range 

1  sec/10  min/hour. 

13 

VLB3 

VPFM,  Filter 

1  sec/10  min/hour. 

11 

AEG8 

Changed  October,  1980  to 
AEG,8meter  tower  height 

20  sec-continuous. 

12 

AE16 

Changed  October,  1980 
16  meter  tower  height 

to  AEG, 

20  sec-continuous. 

13 

AE48 

Changed  October,  1980 
48  meter  tower  height 

to 

AEG, 

20  sec-continuous. 

14 

l.SR1 

C02  Laser,  PAR  Output 

1  min-continuous. 
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15 

LSR2 

C02  Laser,  Power  Output 

1  min-continuous. 

16 

LSR3 

C02  Laser,  Angle  Output 
See  NOTE  2 

1  min-continuous. 

17 

LSR4 

C02  Laser,  Gain  Output 
See  NOTE  2 

1  min-continuous. 

20 

TUR8 

Turbulence  on  500  M 
Barnes 

1  min-continuous. 

21 

BRN1 

Barnes  500M  Transmisso- 
meter 

1  min-continuous. 

22 

BRN2 

Barnes  1500M  Transmisso- 
meter 

1  min-continuous. 

23 

RAIN 

Analog  Rain  Gauge 

1  min-continuous. 

24 

ILM1 

Luxmeter,  Horizontal 
Channel 

4  sec-continuous. 

25 

ILM2 

Luxmeter,  Vertical 
Channel 

4  sec-continuous. 

26 

ILM3 

Luxmeter,  Azimuth 

4  sec-continuous. 

24 

ILM1 

Changed  April,  1980  to 
Luxmeter,  Horizontal 
Channel 

1  min-continuous. 

25 

AE80 

Changed  October,  1980  to  AEG, 

80  meter  tower  height 

20  sec-continuous. 

26 

LTR1 

Changed  October,  1980  to 
Eltro,  Slant  path 

1  min-continuous. 

27 

DROP 

Not  used  on  the  data  logger 
but  used  in  the  DATA  PROFILE 

and  HISTOGRAM  PROFILE  plots 
to  report  the  digital  rain 

gauge  effective  February 

,  1979. 

30 

Not  used 

30 

A-D 

Changed  August,  1978  to 
A/D  Reference  Channel 

1  min-continuous. 

31 

NEP1 

Scanning  Nephelometer, 
Angle  1 

sec/30  min/odd  hr. 

32 

NEP2 

Scanning  Nephelometer, 
Scale  1 

sec/30  min/odd  hr. 

i 
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33 

34 

NEP3 

NEP4 

Scanning  Nephelometer , 
Photo  1 

Scanning  Nephelometer, 
Monitor  1 

sec/30  min/odd  hr. 

sec/30  min/odd  hr. 

35 

Not  used 

36 

EPL1 

Eppley  Pyrohel iometer. 
Filter 

1  min-continuous. 

37 

EPL2 

Eppley  Pyrohel  iometer, 
Direct 

See  NOTE  3 

1  min-continuous. 

36 

ELP2 

Changed  April,  1980  to 
Eppley  Pyrohel iometer , 

Di rect 

1  min-continuous. 

37 

SNTM 

Changed  April,  1980  to 
Scintillometer,  d.c. 
monitor  See  NOTE  3 

1  min-continuous. 

NOTES: 

1.  Digital  ceilometer  is  recorded  on  the  discrete  digits  of  channel 
0  as:  Discrete  "tens"  =  hundreds  of  ceiling  meters. 

Discrete  "units"  =  tens  of  ceiling  meters. 

Installed  October,  1980.  Operational  since  March,  1981. 

2.  Digital  rain  gauge  is  recorded  on  the  discrete  digits  of  channels 
16  and  17  as:  Discrete  "units"  of  channel  17  =  100's  rain  count. 

Discrete  "tens"  of  channel  16  -  10's  rain  count. 
Discrete  "units"  of  channel  16  -  units  rain  count. 
These  "counts"  are  multiplied  by  25.0  millivolts  to 
allow  their  display  in  the  PROFILE  and  HISTOGRAM 
PLOTS  as  a  voltage.  The  count  range  is  0  to  999. 
Operational  since  December,  1978. 

3.  Digital  sun  sensor  is  recorded  on  the  "tens"  digit  of  channel  37 
as:  If  discrete  "tens"  digit  =  2  or  3,  the  sun  is  shining. 

If  discrete  "tens"  digit  =  0  or  1 ,  no  sun  (cloudy  gr  dark). 
Operational  since  June,  1979. 
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1.2  OPAQUE  RAW  DATA  TAPE  LIBRARY 


When  a  raw  data  tape  is  received  by  the  ULowell  research  team,  it 
is  catalogued  both  manually  in  the  tape  log  and  entered  into  the 
system  file,  TAPEFILE,  giving  the  starting  and  ending  day-of-year, 
hour,  and  minute  for  each  continuous  data  recording.  Currently  there 
are  over  345  raw  data  tapes  catalogued,  a  data  base  representing  over 
four  years  of  essentially  continuous  OPAQUE  measurements.  The  need 
for  maintaining  this  raw  tape  data  base  has  been  demonstrated  many 
times  where  the  raw  tape  must  be  rerun  to  create  new  working  files  to 
replace  those  lost  due  to  a  tape  mounting  problem  or  a  program 
termination  error. 

To  assist  in  locating  the  raw  data  tape(s)  for  a  given  period  of 
time,  or  to  determine  if  any  data  was  recorded  for  the  period  of 
interest,  the  programs  MEPPEN6,  MEPPEN7,  MEPPEN8,  MEPPEN9,  and  MEPPENO 
have  been  designed  to  produce  the  Raw  Data  Tape  Directories  given  in 
Tables  2,  3,  4,  5,  and  6.  They  are  formatted  on  a  calendar  year  basis 
with  the  month-of-year  along  the  abscissa  and  the  day-of-month  along 
the  ordinate.  The  day-of-month  is  divided  into  two  twelve  hour 
periods  as  A.M.  (00:00  to  11:59  hours)  and  P.M.  (12:00  to  23.59 
hours).  The  values  in  the  columns  headed  AM  and  PM  are  the  labels  of 
the  data  tapes  that  contain  the  data  for  those  half-day  periods.  The 
value  0  represents  either  the  case  that  no  data  was  recorded  for  that 
twelve  hour  period  or  that  the  month  does  not  contain  31  days. 

A  careful  review  of  these  figures  reveals  that  a  given  tape  may 
contain  a  large  number  of  data  half-days,  while  others  are  in  use  only 
for  two  or  three  days.  This  discrepancy  is  due  to  the  fact  that  the 
data  logger  samples  the  data  channels  with  different  sampling  rates. 

If  a  large  number  of  one  second  or  four  second  data  channels  are 
sampled  and  recorded,  the  data  tape  lasts  for  two  or  three  days.  If 
the  station  operator  disables  some  of  these  high  sample  rate  channels, 
the  data  tape  can  last  beyond  20  days,  depending  on  the  data  channels 
disabled.  Prior  to  1980,  the  disabling  of  the  sampling  of  the 
Scanning  Nephelometer  (4  data  channels  sampled  every  second  for  thirty 


minutes  on  alternate  changing  of  the  Luxmeter  sampling  from  every  4 
seconds,  continuously  to  a  sampling  rate  of  once  a  minute,  continuous, 
is  evident  in  April,  1980  and  later.  The  long  tape  life  through  the 
latter  portion  of  1980  is  due  to  the  sampling  of  the  Scanning 
Nephelometer  being  disabled  by  the  station  operator  when  the 
instrument  was  inoperative. 
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Table  6.  OPA/Meppen  Raw  Data  Tape  Directory  for  1980 


1.3  DATA  LOGGER  SYSTEM  PERFORMANCE 


Another  use  of  the  Raw  Data  Tape  Directories  is  in  determining 
the  percentage  of  data  logger  system  "off-line"  time  on  a  monthly  or 
yearly  basis.  Viewed  in  this  way,  and  using  December,  1976  as  the 
starting  month  for  the  OPAQUE  measurement  program,  the  following  table 
summarizes  both  monthly  and  yearly  performance  through  December,  1980. 


Table  7 

Percentage  i 

of  OFF-LINE  Time,  Monthly 

and  Yearly 

JAN 

FEB 

MAR 

APR 

MAY 

JUN 

JUL 

AUG 

SEP 

OCT 

NOV 

DEC 

1976 

— 

— 

— 

- - - 

— 

— 

— 

20.9 

1.67 

35.5 

23.3 

4.83 

1977 

46.7 

10.7 

19.4 

8.33  1 

.61 

6.67 

12.9 

9.67 

10.0 

16.1 

0.00 

8.06 

1978 

20.9 

0.00 

1.61 

0.00  0 

.00 

8.33 

0.00 

12.9 

0.00 

1.61 

0.00 

11.3 

1979 

6.45 

0.00 

0.00 

11.7  6 

.45 

8.33 

0.00 

0.00 

6.67 

14.5 

0.00 

1.61 

1980 

3.22 

0.00 

0.00 

5.00  0 

.00 

1.66 

25.8 

0.00 

0.00 

0.00 

11.6 

11.3 

A  detailed  analysis 

of 

the  data  logger 

recording 

time 

on  an 

YEARLY 
?7 .45 
12.6 
4. 7Q 
4.66 
4.92 


hourly  or  minute  basis  can  be  carried  out  using  the  data  tape  timing 
information  contained  in  the  system  file,  TAPEFILE  (the  raw  data  tape 
log  file). 


Considering  the  fact  that  the  data  logger  system  is  operated 
continuously  in  an  unattended  mode,  the  yearly  percentage  of 
"down-time"  is  quite  remarkable  for  the  total  period  of  operation 
given  above.  The  majority  of  the  daily  outages  can  be  attributed  to 
losses  of  power  at  the  field  site  and  reaching  an  end  of  tape 
condition  on  the  magnetic  tape  recorder.  The  remaining  outages  can  be 
attributed  to  periods  of  hardware  maintenance  or  system  software  and 
hardware  modifications  to  accommodate  changes  in  the  types  and  number 
of  experimental  sensors. 

An  interesting  interpretation  of  these  statistics  is  to  view  them 
as  a  learning  curve  of  the  personnel  operating  the  field  site  at 
Meppen.  After  becoming  familiar  with  the  operational  characteristics 
of  a  fully  automated  data  logger,  the  yearly  tape  directories  show 
extended  periods  of  continuous  operation  broken  by  several  half  days 
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of  outages  which  suggests  increasing  operational  familiarity  and 
confidence.  The  use  of  design  techniques  that  minimize  operator 
intervention  to  a  "reload  and  restarting  of  the  system"  significantly 
reduces  accidental  system  interruptions  and  results  in  an  operational 
procedure  that  can  be  taught  very  quickly  to  new  operators  of  the 
system. 

A  copy  of  the  current  data  logger  control  programs  in  use  at  the 
U.S.  OPAQUE  Field  Station  in  Meppen,  West  Germany  is  included  as  an 
appendix  to  this  report. 


1.4  SENSOR  PERFORMANCE  LIBRARY 


While  the  information  provided  in  a  OPA/Meppen  Raw  Data  Tape 
Directory  can  be  used  to  determine  whether  the  data  logger  was 
operational  during  a  specific  time  period,  it  is  not  descriptive  of 
the  individual  sensor  performance.  The  Sensor  Performance  Library  is 
maintained  and  formatted  to  provide  this  information  on  a  yearly  basis 
as  the  examples  in  Figures  1.  and  2.  demonstrate.  The  yearly 
directories  provide  a  copy  of  the  PROFILE  program  output  and  the 
HISTOGRAM  program  output  for  each  raw  data  tape.  Providing  this 
information  on  a  per  tape  basis  yields  an  estimate  of  all  sensor 
performances  on  essentially  one  hour  intervals  for  most  data  tapes. 

It  should  be  noted  that  these  programs  normally  scan  the  raw  data  tape 
to  determine  the  start  and  finish  times  of  the  recording  period,  which 
is  not  constant  as  can  be  seen  in  Tables  ?  through  6  above.  The 
complete  Sensor  Performance  Directories  for  the  years  1977,  1978, 

1979,  and  1980  are  provided  as  separately  bound  supplements  to  this 
report. 

The  DATA  PROFILE  Tape  Directories  display  all  of  the  active  data 
sensors  sampled  using  the  mnemonic  designators  listed  in  Section  1.1 
along  the  ordinate  and  the  time  of  day  along  the  abscissa.  The 
directory  also  gives  the  starting  and  ending  time  of  the  raw  data 
tape,  along  with  the  total  number  of  minutes  of  recorded  data  and  the 
number  of  minutes  represented  by  each  abscissa  time  division.  The 
data  designators,  A-U  and  $  or  *,  represent  the  average  value  of  the 
channel  sensor  taken  over  the  abscissa  time  division  interval.  In 
reading  the  directories,  one  can  determine  very  quickly  the  average 
performance  of  a  given  sensor  by  noting  if  the  data  designator  * 
(over-range,  usually  interpreted  as  meaning  the  channel  is  not  active) 
or  $  (meaning  the  data  value  is  negative  and  not  usable)  is  displayed 
over  any  portion  of  the  plot.  Use  of  these  plots  is  in  millivolts  and 
reflect  the  discrete  nature  of  the  analog-to-digital  voltage 
conversion  which  has  a  resolution  of  ?.*>  millivolts  per  muni. 
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A  (  0-  247)  B  (  250-  497)  C  (  500-  747)  0  (  750-  997) 

E  (1000-1247)  F  (1250-1497)  G  (1500-1747)  H  (1750-1997) 

I  (2000-2247)  J  (2250-2497)  K  (2500-2747)  L  (2750-2997) 

M  (3000-3247)  N  (3250-3497)  0  (3500-3747)  P  (3750-3997) 

Q  (4000-4247)  R  (4250-4497)  S  (4500-4747)  T  (4750-4997) 

U  (5000)  *  (>  5000)  $  (negative) 

The  HISTOGRAM  PROFILE  Directories  display  all  of  the  active  data 

sensors  using  the  mnemonics  listed  in  Section  1.1  along  the  ordinate 

and  the  raw  data  sensor  voltage  range,  (-5  volts  to  +5  volts),  along 

the  abscissa.  The  information  displayed  is  generated  during  the 

execution  of  the  control  program  AUTOHEX,  which  also  produces  the  DATA 

PROFILE  plots.  Whereas  the  DATA  PROFILE  plots  average  the  channel 

voltage  values  over  the  designated  time  division  interval  of  the  plot, 

the  HISTOGRAM  PROFILE  plots  count  the  total  number  of  data  channel 

values  that  fall  within  each  100  millivolt  increment  to  generate  the 

histograms.  While  the  total  presentation  in  the  HISTOGRAM  PROFILE 

plot  is  essentially  a  "top-down"  view  of  each  of  the  individual  data 

channel  histograms,  the  detail  given  for  each  data  channel  allows  a 

rapid  determination  of  normal  or  abnormal  activity  of  the  experimental 

sensor  assigned  to  that  channel.  The  right-most  column  in  the  plot 

gives  the  total  number  of  data  points  counted  per  channel  over  the 

duration  of  the  raw  data  tape.  A  comparison  of  the  total  number  of 

minutes  (at  the  top  of  the  plot)  with  the  total  number  of  data  points 

counted  on  a  data  channel  known  to  be  sampled  at  one  minute  intervals 

does  reveal  some  discrepancies  in  that  the  total  "run"  time  of  the  raw 

data  tape  may  be  larger.  This  is  due  to  the  fact  that  the  total  run 

time  is  calculated  from  the  start  and  stop  times  of  the  raw  data  tape 

and  if  out  of  range  "time  tags"  are  detected  during  the  processing, 

the  data  samples  associated  with  those  "bad"  times  are  collected  and 

displayed  in  the  last  line  of  the  plot  labeled  as  0038-00.  This  line 

also  contains  all  of  the  one  minute  sample  points  taken  on  channels 

31,  32,  33,  and  34  that  are  not  displayed  in  the  HISTOGRAM  (and  the 

PROFILE  plot  also)  plot  in  order  to  keep  the  plot  on  one  computer 

printer  page  (usually  66  lines). 

The  HISTOGRAM  PROFILE  designator  scale  used  in  these  plots  is 
listed  below.  The  numerical  values  assigned  each  designator  are 
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percentages  of  the  total  number  of  data  points  listed  at  the  right 

side  of  the  plot  for  each  sensor. 

-  (  0  -  4%)  A  (  5  -  9%)  1  (10  -  14%)  B  (15  -  19%) 

2  (20  -  24%)  C  (25  -  29%)  3  (30  -  34%)  D  (35  -  39%) 

4  (40  -  44%)  E  (45  -  49%)  5  (50  -  54%)  F  (55  -  59%) 

6  (60  -  64%)  G  (65  -  69%)  7  (70  -  74%)  H  (75  -  79%) 

8  (80  -  84%)  I  (85  -  89%)  9  (90  -  94%)  J  (95  -  99%) 

*  (100%) 


17 


^  2222aS2222agK2222SieSK}5SRS>S«ffiF22p,iy?saS2'r'S!5Ji!S22“Sa$a5*S55!r,SR 
SSSSS^SSSSSSSSSW  r'r'r'r'r'r"pr'^r"r'?;  ?22as  ~ln2R55:  SS  »<*«•>  «•>«*»«•>£ 


t  I  I  t  I  I  |  |  |  I  |  |  |  | 


i  i  i  m  i  i  i  m 


£jlj2  <e 
Bn4  — *  i  — > 


•  ii* 


2TS 

a  f 


4*  ♦  ♦  ♦  1  !  I 

ti  ill 


r  ifjLtjR- 


i  T  V  1 1> 


■  j  ^ 


♦  ♦  ♦  ♦  t  ♦♦  ♦ 


.4t4>44^tt-f44t4<f4  44444444444' 


♦  ♦  4*  ♦  ♦  ♦ 


S  i 

|  88888o88888S8888SoSo8o838SoS88oSS888So8o888oSSSg8ooo8o§£ V 

O  II  i  i  i  i  i  •  i  I  III  IX*  *  I  I  III  lilt  »  i  I  l  i  llij  Jii  I  *  XX  *  i  l  i  *  i  ■  i  ■  *  1  i  I W 


19 


Figure  2.  Example  of  Histogram  Profile  Plot 


1.5  STRIPPED  DATA  TAPE  LIBRARY 
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The  execution  of  the  procedure  files  with  the  raw  data  tapes 
produce  output  files  that  consist  of  formatted  data  samples  stored  as 
half-day  records  for  a  whole  month  of  data.  These  stripped  data  files 
are  then  stored  on  magnetic  tape,  packed  three  months  to  a  tape.  This 
stripped  data  base  is  stored  on  magnetic  tapes  issued,  catalogued,  and 
housed  at  the  A.F.G.L.  Computer  Center.  Table  8A.,  the  Computer  Center 
(CC)  Stripped  Data  Tape  Directory,  lists  all  of  the  active  CC  tapes  by 
tape  number  and  the  data  interval  represented. 


Due  to  the  time  and  effort  required  in  generating  the  stripped 
data  tapes,  and  the  possibilities  for  program  or  human  error  in 
processing  the  data  contained  on  these  tapes,  a  double  or  backup  copy 
of  each  CC  stripped  data  tape  is  generated  and  stored  by  the  ULowell 
contractor.  Table  8B.,  the  Backup  (OPA)  Stripped  Data  Tape  Directory, 
lists  all  of  the  active  backup  tapes  by  tape  number  and  the  data 
interval  represented. 


Table  8A.  Computer  Center  (CC)  Stripped  Data  Tape  rectory 


JAN 

FEB 

MAR 

APR 

MAY 

JUN 

JUL 

AUG 

SEP 

OCT 

NOV 

DEC 

1977 

2898 

2898 

3213 

3213 

3213 

3325 

3325 

3325 

2726 

2726 

2726 

2842 

1978 

2842 

2720 

2720 

2720 

0766 

0766 

0766 

1442 

1442 

1442 

1417 

1417 

1979 

1417 

0003 

0003 

0003 

0009 

0009 

0009 

3885 

3885 

3885 

3908 

3908 

1980 

3908 

4287 

4287 

4287 

4518 

4518 

4518 

2904 

2904 

2904 

Table  8B.  Backup  (OPA)  Stripped  Data  Tape  Directory 


JAN 

FEB 

MAR 

APR 

MAY 

JUN 

JUL 

AUG 

SEP 

OCT 

NOV 

DEC 

1977 

971 

971 

951 

951 

951 

955 

955 

955 

956 

956 

956 

954 

1978 

954 

957 

957 

957 

958 

958 

958 

959 

959 

959 

960 

960 

1979 

960 

961 

961 

961 

962 

962 

962 

963 

963 

963 

964 

964 

1980 

964 

965 

965 

965 

967 

967 

967 

970 

970 

970 
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II. 1  USER'S  MANUAL  FOR  STRIPPING  AND  OUTPUT  PACKAGES 


A  manual  entitled  User's  Manual  for  Stripping  and  Output  Package 
of  the  MATO  Project  OPAQUE  U.S.A.F.  System  Control  Programs  was 
prepared  to  accompany  the  final  report  (1978).  This  manual  describes 
the  commands  necessary  to  generate  the  stripped  minute  channel  files, 
luxmeter  files,  and  vislab  files  from  the  raw  data  tape  files  and 
generate  plots  and  tabulated  data  from  these  stripped  files.  Also  the 
commands  necessary  to  generate  the  Erik  files  from  the  stripped  files 
are  described. 


1 1. 2  CALIBRATION  PACKAGE  OUTPUT 


Yearly  calibration  files  have  been  generated  to  process  the  raw 
data.  These  calibration  files  are  routine  which  generate  calibrated 
scientific  values  from  the  raw  data  for  any  particular  instrument. 

For  some  instruments,  the  calibration  data  applies  for  specific 
periods  in  the  year,  and  the  date  has  to  be  supplied  to  determine  the 
proper  calibration  formulas  to  be  used. 

As  each  calibration  package  has  been  completed,  test  data  showing 
scientific  values  corresponding  to  the  raw  data  values  for  each 
instrument  under  all  different  possible  conditions  has  been  generated 
and  made  available  to  the  experimenters  to  check.  This  calibration 
data  and  a  listing  of  the  FORTRAN  calibration  subroutines  was  prepared 
into  a  report  for  the  year  1977.  Comparable  calibration  packages  for 
the  subsequent  years  1978,  1979,  and  1980  will  be  reported  under 
separate  cover. 


1 1. 3  DESIGN  OF  C02  LASER  SOFTWARE  PACKAGE 


The  C02  laser  data  is  processed  into  a  separate  monthly  file 
generated  from  data  contained  in  the  stripped  minute  channel  files. 

11. 3.1  LASERFILE  Structure 

The  structure  of  the  monthly  LASERFILE  is  illustrated  in  Figure 
3.  The  file  is  for  a  31  day  period  corresponding  to  a  single  monthly 
stripped  minute  array  file.  The  file  consists  of  93  records  (3x31 
days).  Each  24  hour  period  day  uses  three  records.  The  first  of 
these  is  a  single  word  which  is  the  start  time  in  seconds  for  that  day 
from  the  beginning  of  the  year  +  86400  seconds.  The  second  and  third 
are  the  angle  and  laser  scattering  data  respectively  for  each  minute 
of  the  24  hour  period;  hence  the  first  word  of  record  2  and  the  first 
word  of  record  3  are  the  angle  and  corresponding  scattering  data  for 
the  first  minute  of  the  24  hour  period  starting  at  the  time  stored  in 
record  1.  Note  that  the  monthly  record  generally  doesn't  correspond 
to  a  particular  yearly  month,  nor  does  the  start  time  correspond  to 
the  first  hour  of  the  day. 

The  LASERFILE  is  first  initialized  in  a  separate  procedure 
(INLASER).  The  time  records  (1,  4,  7,...)  are  set  to  the  appropriate 
time  in  seconds  as  determined  from  input  data.  The  laser  data  records 
(2,  3,  5,  6,  8,  9,...)  are  initialized  to  -1.E.30. 

Each  monthly  LASERFILE  requires  1400  PRUs  of  mass  storage.  The 
file  is  a  sequential  (rather  than  a  random  access)  file  and,  as  such, 
requires  care  in  manipulating. 

11. 3. 2  Reconstructing  the  Angle  Function 

The  laser  instrument  has  a  sensor  which  measures  the  scattering 
from  a  laser  beam  as  shown  in  Figure  4.  The  scattering  sensor  sweeps 
back  and  forth  at  constant  velocity  through  an  angle  of  160°  as  shown. 
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Figure  4.  Laser  Instrument  Scan  Angle 


A  problem  occurred  with  the  angle  sensor  which  required  some 
involved  programming.  Apparently  a  set  screw  loosened  on  the  angle 
sensor  so  that  the  angle  measured  was  significantly  different  than  the 
actual  angle.  In  some  cases  the  angle  measurement  saturated  so  that 
only  the  lower  part  of  the  angle  as  a  function  of  time  was  retrievable 
from  the  raw  data.  Fortunately  there  is  sufficient  data  to 
reconstruct  the  angle  function.  Basically  the  technique  for  doing 
this  is  to  estimate  the  times  at  which  the  angle  reaches  its  minimum 
position  and  use  this  data  to  reconstruct  the  actual  angle  for  a  given 
time. 


An  array  of  12  time  values  (in  seconds  from  the  beginning  of  the 
year  +  86400)  is  generated  (if  possible)  for  a  given  half-day  record 
of  the  stripped  minute  channels.  This  array  represents  the  best 
estimates  of  the  time  at  which  the  minimum  angles  during  each  sweep 
occurred. 


The  algorithm  for  doing  this  is  as  follows: 


i)  the  half-day  record  is  searched  from  the  beginning  for  each 

occurrence  of  the  condition  in  the  laser  angle  shown  in  Figure  5. 
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Figure  ^ .  Condition  for  Possible  Minimum  Angle 
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When  11  consecutive  samples  are  found  that  meet  this  condition,  it  is 
taken  to  indicate  a  possible  minimum  point  in  the  angle  signal,  and 
the  estimate  of  the  time  and  the  actual  angle  is  calculated  using  the 
5th,  6th,  and  7th  samples  of  the  set  according  to  the  equations 
developed  in  Figure  6.  The  estimated  times  are  stored  in  an  array. 
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Fr&tr,  geometry 
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but  ~  -  /&  / 

SO  Amtt  =  OJ&3S  (/Ct,-£lKs-K7l)  +  3.(S 

Figure  6.  Algorithm  for  Minimum  Angle  Petermi nati on 


ii)  Tests  are  made  on  the  resulting  array.  In  particular  if  the  scan 
period  between  successive  minima  was  less  than  5400  seconds  or 
greater  than  6200  seconds,  a  message  is  printed.  Also  if  only 
one  minimum  point  or  more  than  10  is  found  for  a  half-day  record, 
these  too  are  indicated. 

iii)  In  order  to  make  the  array  useful  before  the  first  sample  and 
after  the  last,  the  array  (if  it  passes  the  above  tests)  is 
extrapolated  to  include  one  or  two  false  minima  before  the  first 
point  and  after  the  last.  This  is  done  by  calculating  an  average 
scan  period  using  the  good  points.  Also  obvious  missing  minima 
values  are  added  using  the  same  average  period. 

iv)  After  the  array  is  generated,  the  results  are  printed  out.  This 
includes  the  following  for  each  minimum  (including  the 
extrapolated  ones): 

a)  A  list  of  times  at  which  the  minima  occurred  both  in  seconds 
after  the  beginning  of  the  year  (+86400)  and  in  days,  hours, 
minutes,  and  seconds; 

b)  the  estimated  angles  for  each  of  the  times.  If  the  times 
were  extrapolated  or  reconstructed,  the  corresponding  angle 
printed  out  is  -999.00; 

c)  an  indicator  of  the  condition  of  the  minimum.  These  values 
are  possibly  -9,  1,  or  0: 

-9  indicates  an  extrapolated  or  reconstructed  minimum, 

1  indicates  a  minimum  was  found  and  for  at  least  3  of  the 
11  points  used,  the  gain  measurement  was  not  at  its 
maximum  value, 

0  indicates  a  minimum  was  found  and  the  gain  condition  for 
a  "1"  was  not  met; 

d)  the  difference  in  time  (the  period)  between  consecutive 
minima  in  seconds. 
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A  sample  printout  showing  the  generated  minima  is  given  in  Figure 

7.  From  the  array  of  generated  minimum  times,  the  angle  can  be 

constructed.  The  algorithm  for  this  is  shown  in  Figure  8. 

II. 3. 3  Summary  of  LASERFILE  Processing 

The  processing  necessary  to  construct  the  LASERFILE  from  a 

monthly  stripped  minute  file  requires  the  following  steps: 

1)  The  monthly  LASERFILE  is  initialized  with  the  procedure  INLASER. 

2)  The  stripped  minute  channel  is  scanned  for  preliminary  data  using 
the  procedured  SCAN.  This  essentially  generates  a  printout  of 
the  angle  minima  (as  described  above)  for  the  entire  month. 

3)  Using  the  information  from  the  scan,  all  possible  data  is 
extracted  and  put  into  the  LASERFILE  using  the  procedure  PROCESS. 
Data  can  only  be  extracted  over  those  periods  where  a  continuous 
set  of  angle  minima  have  been  obtained.  This  procedure  catalogs 
a  new  cycle  of  the  initialized  LASERFILE;  the  old  one  can  be 
purged. 

4)  Time  plots  and  scatter  plots  are  generated  from  the  stripped 
minute  channels  over  those  periods  where  the  gain  signal  left  its 
maximum  value  ( i . e . ,  the  indicator  described  above  took  on  the 
value  1).  Periods  when  this  didn't  occur  indicates  that  the 
laser  was  not  properly  charged,  and  the  data  is  not  generally 
useful.  The  procedures  LTPLOT  and  LSPLOT  do  this.  Sample  plots 
are  shown  in  Figures  9.  and  10. 

5)  Finally,  a  map  of  the  LASERFILE  is  made  using  the  procedure  MAP. 

A  sample  LASERFILE  map  is  shown  in  Figure  11.  Each  pair  of  lines 
represents  a  two  hour  period.  The  top  line  corresponds  to  the 
angle  and  the  bottom,  the  scattering  value.  Generally,  a  letter 
is  used  for  the  angle  except  where  the  gain  is  not  at  its  maximum 
value.  There  a  letter  is  changed  to  a  digit;  A  becomes  1,  B,  2, 
etc.  The  lower  line  uses  letters  if  the  scattering  value  is 
negative  and  digits  if  positive.  /  denotes  no  raw  data  exists,  - 
denotes  the  data  is  bad,  and  $  denotes  the  scattering  value  is 
zero. 
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Figure  7.  Sample  Printout  Showing  Generated  Minima  of  Laser  Angle 
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Figure  9.  Laser  Time  Plot 
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1 1. 4  C02  LASER  DATA  TAPE  DIRECTORY 


The  CO?  Laser  data  files  that  are  produced  by  the  software 
package  described  above  are  stored  on  magnetic  tapes  issued, 
catalogued,  and  housed  at  the  A.F.6.L.  Computer  Center.  Table  9.,  the 
Computer  Center  (CC)  C02  Laser  Data  Tape  Directory,  lists  all  of  the 
active  CC  tapes  by  tape  number  and  the  data  intervals  represented. 


Due  to  the  time  and  effort  required  in  generating  these  data 
tapes,  and  the  possibilities  for  program  or  human  error  in  processing 
the  data  contained  on  these  tapes,  a  double  or  backup  copy  of  each  CC 
stripped  data  tape  is  generated  and  stored  by  the  ULowell  contractor. 
Table  10.,  the  Backup  (OPA)  C02  Laser  Data  Tape  Directory,  lists  all 
of  the  active  backup  tapes  by  tape  number  and  the  data  intervals 
represented. 


Table 

!  9. 

Computer  Center  (CC)  C02 

Laser 

Data  Tape  Directory 

JAN 

FEB 

MAR 

APR 

MAY 

JUN 

JUL 

AUG 

SEP 

OCT 

NOV 

DEC 

1977 

2635 

2635 

2843 

2843 

2843 

_  _  _ 

_  _  _ 

„  . 

_  _  _ 

2843 

2843 

2843 

1978 

2843 

2843 

2843 

2843 

2843 

2843 

2843 

2843 

2843 

2843 

2843 

2843 

1979 

— 

— 

— 

— 

2843 

2843 

2843 

2843 

2843 

2843 

— 

— 

1980 

— 

- - 

— 

“  -  - 

2843 

2843 

2843 

Table 

10. 

Backup 

(OPA) 

C02  1 

.aser  Data  Tape  Directory 

JAN 

FEB 

MAR 

APR 

MAY 

JUN 

JUL 

AUG 

SEP 

OCT 

NOV 

DEC 

1977 

920 

920 

921 

921 

921 

_  _  _ 

_  .»  — 

«  o 

_  _  _ 

921 

921 

921 

1978 

921 

921 

921 

921 

921 

921 

921 

921 

921 

921 

921 

921 

1979 

— 

— 

— 

— 

921 

921 

921 

921 

921 

921 

— 

— 

1980 

— 

— 

— 

— 

921 

921 

921 

Note:  The  months  listed  as  —  represent  periods  when  the  instrument 
was  not  operational. 
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I I. 5  SCANNING  NEPHELOMETER  PROCESSING 


II. 5.1  General  Considerations 

The  scanning  nephelometer,  like  the  laser  instrument,  scans  back 
and  forth  through  an  angle  of  about  160°,  completing  one  scan  (back 
and  forth)  in  about  200  seconds.  The  scan  rate  is  approximately  1.6°/ 
second.  The  instrument  is  sampled  once  per  second  for  a  30  minute 
period  on  alternate  hours.  Data  from  the  instrument  requires  4 
channels  of  the  data  logger: 

Channel  31  Angle 

Channel  32  Scale 

Channel  33  Photopic 

Channel  34  Monitor 

In  addition,  the  discrete  on  channel  32  contains  two  additional 
pieces  of  information.  The  most  significant  digit  is  the  gain,  and 
the  least  significant  digit  is  the  filter  number  (8  of  them). 

The  nephelometer  has  an  indexing  filter  which  changes  every  scan 
(back  and  forth).  Based  on  the  Meppen  log,  the  instrument  was  working 
essentially  over  these  periods  of  time. 

November  1976  -  March  1977 
January  1978  -  August  1978 
November  1978  -  Present 

The  first  and  second  periods  were  terminated  when  the  xenon  lamp 
exploded. 

During  the  first  period,  the  instrument  was  sampled  each  second 
for  a  twenty  minute  period  every  hour.  This  however,  was  not  enough 
time  to  complete  a  cycle  of  eight  scans  (one  for  each  filter),  so  the 
recording  time  was  changed  to  thirty  minutes  every  other  hour. 


The  program  which  is  described  here  is  for  processing  this  thirty 
minute  data.  The  program  requires  modification  to  handle  the  twenty 
minute  recording  time. 

I I . 5 . 2  The  Nephelometer  File  Structure 

The  following  nephelometer  file  structure  is  acceptable  in  terms 
of  program  core  size,  permanent  file  size,  and  tape  file  size. 

The  structure  is  shown  in  Figure  12.  Basically  one  file  in  the 
structure  corresponds  to  one  raw  data  file.  A  thirty  minute 
nephelometer  recording  period  supplies  the  data  for  one  record  in  this 
file.  There  may  be  up  to  200  of  these  records  in  each  file.  In 
addition,  the  first  record  of  the  file  is  a  file  directory. 

Each  data  record  in  the  file  consists  of  3,620  words.  The  first 
20  words  contain  information  about  the  record  (start  time  and  filter 
information).  The  remaining  3,600  words  contain  the  data  (two  words 
per  second).  The  channel  information  is  packed  two  channels  per  word 
in  exactly  the  same  form  used  for  the  stripped  minute  data  files. 

The  size  of  the  file  varies  according  to  the  number  of  thirty 
minute  periods  contained  on  the  raw  data  tape.  For  a  four  day  raw 
tape  period  there  would  normally  be  48  records  (plus  an  additional 
record  for  the  directory).  This  is  equivalent  to  about  2,720  prus. 

The  directory  has  been  sized  so  the  file  can  contain  200  records. 

The  total  size  for  a  complete  month  requiring  say  ten  raw  data 
tapes  would  be  about  30,000  prus.  (a  convenient  value  for  a  disk  pack 
or  magnetic  tape  file)  Hence,  the  completed  nephelometer  data  file 
would  require  one  magnetic  tape  per  month.  This  is  convenient  in 
terms  of  the  plots  which  are  to  be  generated  from  the  data.  It  is 
probably  advisable  to  save  files  which  overlap  two  months  on  each  of 
the  monthly  magnetic  tapes  so  that  each  would  contain  a  full  calendar 
month. 


In  addition  to  the  nephelometer  files,  it  is  necessary  to  add  a 
directory  to  each  monthly  magnetic  tape  file  so  that  data  for  a 
particular  time  can  be  accessed  from  the  tape.  The  structure  of  the 
month  tape  directory  is  also  shown,  in  Figure  12. 

II. 5. 3  Nephelometer  Stripping  Program  Results 

A  nephelometer  stripping  program  was  developed  using  the  minute 
channel  stripping  program  developed  previously  as  a  basis.  A  sample 
run  was  made  in  which  a  seven  hour  period  was  stripped  from  data  tape 
0PA231 .  Samples  of  the  contents  of  the  stripped  file  are  shown  in 
Figures  13  and  14.  The  directory  for  the  file  is  first  displayed 
showing  the  start  time  for  each  of  the  seven  stripped  hours. 

The  record  for  the  first  hour  is  fetched  and  a  list  of  the  sample 
numbers  of  the  entries  corresponding  to  each  of  the  8  filters  is 
printed,  then  a  map  showing  a  quantized  representation  of  the  angle 
profile  for  each  of  the  1800  samples  is  printed.  The  angle  function 
is  obvious  from  this  map  and  the  correspondence  with  the  sample 
numbers  at  which  each  filter  starts  can  also  be  seen.  Finally,  a 
display  of  the  values  for  the  first  minute  of  the  record  are  printed 
in  tabular  form  (using  the  command  SAMPLE,! ,60) .  The  first  column  is 
the  sample  number;  the  second  column  contains  the  gain  discrete  value; 
the  third  column  is  the  filter  number.  The  last  four  columns  give  the 
counts  of  channels,  31,  32,  33  and  34. 
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Figure  12.  Scanning  Nephelometer  File  (1  month) 
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Figure  14.  Nephelometer  Oata  for  One  Minute 


II. 6.1 


Low  Visibility  Data  File  Structure 


The  Low  Visibility  Data  File  contains  the  following  entries  for 
each  minute: 

1.  Time  (in  minutes  after  the  beginning  of  the  year). 

2.  An  integer  which  is  either: 

i)  a  positive  value  which  indicates  the  filter  used  on  the 
BARNES  instrument  for  that  minute.  If  the  ELTRO  instrument 
was  used  for  the  extinction  coefficient,  the  filter  number 
is  1,  2,  3,  5,  or  6.  If  the  AEG  instrument  was  used  to 
obtain  the  extinction  coefficient,  10  is  added  to  the  filter 
number  so  that  it  is  either  11,  1Z,  13,  15,  or  16. 

Filter  numbers  use  the  OPAQUE  convention  as  follows: 

1  3-5  microns 

2  8-12  microns 

3  8-13  microns 

5  open 

6  4  microns 

ii)  A  negative  value: 

a)  -1  to  -5  which  indicates  that  data  could  not  be 

obtained  for  that  minute.  The  negative  number  entered 
indicates  the  reason  as  follows: 

-1  extinction  data  not  available 

-2  extinction  data  not  valid 

-3  BARNES  data  not  available 

-4  BARNES  filter  number  not  valid 

-5  BARNES  data  not  valid. 

Tests  are  made  in  the  above  order;  only  the  first  cause 
of  failure  is  reported. 
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b)  -9  which  indicates  that  the  visibility  was  above  the 
threshold  (and  passed  the  above  tests)  and  that 
instrument  data  was  not  entered  in  3  and  4  below. 

3.  The  extinction  coefficient  obtained  from  the  ELTRO  instrument  if 
it  is  available;  otherwise  from  the  AEG  instrument  data. 

4.  The  BARNES  transmission  data  for  the  filter  indicated  in  entry  2. 

I  entry  2  is  negative  indicating  instrument  data  has  not  been 
entered  in  3  or  4,  the  value  -999.9  is  entered  there  instead. 

The  threshold  value  for  the  visibility  is  3  km  which  corresponds 
to  an  extinction  coefficient  of  1.304  km"\  The  visibility  if  lower 
than  this  value  approximately  20%  of  the  time.  The  file  contains 
continuous  time  so  that  data  is  present  in  only  about  20%  of  the  file; 
simplicity  was  felt  to  be  more  important  than  efficient  file  space. 

The  first  record  (ILVD)  contains  integer  values  (entries  1  and 
2);  the  second  (RLVD)  contains  real  values  (entries  3  and  4).  Each  of 
these  records  is  dimensioned  2  x  720  (since  there  are  720  minutes  in 
12  hours).  A  file  usually  contains  62  pairs  of  these  half-day 
records.  Hence,  data  is  arranged  as  shown  in  Figure  15. 

With  this  sizing,  records  contain  1440  words.  Two  records  (2880 
words)  must  appear  in  core  at  the  same  time.  Hence  files  contains  2  x 
1440  x  62  /  64  =  2790  PRUs.  Tapes  can  contain  12  files  (33480  PRU's) 
conveniently,  so  a  total  of  3  tapes  would  be  generated  for  the 
approximately  3  years  of  data.  The  data  tapes  generated  for  the  U.S. 
Army  ASL  use  usually  contain  one  month  of  data  for  convenience. 

1 1 . 6 . 2  Low  Visibility  Data  Generation  Algorithm 

In  processing  the  minute  files  to  generate  the  low  visibility 
data  files,  the  method  for  obtaining  the  extinction  coefficient  is 
described  below. 
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If  the  ELTRO  instrument  was  operating  at  the  time,  then  that  data 
is  used  for  the  extinction  coefficient.  If,  however,  that  data  is  not 
valid  or  the  ELTRO  was  not  in  operation  at  the  time,  then  the  AEG 
instrument  is  used  if  available  and  valid.  The  ELTRO  instrument 
signal  changed  to  a  calibration  mode  for  2  or  3  minutes  approximately 
32  minutes  after  the  start  of  each  hour.  If  the  visibility  was  below 
the  threshold  in  the  data  3  or  4  minutes  previous  to  the  occurrence  of 
the  calibration  signal,  then  the  data  at  that  time  was  accepted  as  low 
visibility  data.  No  extinction  value  is  given  in  the  data  (the  value 
-999.9  appears)  at  the  time  of  ELTRO  calibration. 

II. 6. 3  Low  Visibility  Data  Map  Program 

A  map  is  generated  for  each  file  which  gives  an  indication  of 
every  entry  in  the  file.  A  sample  map  is  shown  in  Figure  16.  Each 
strip  of  6  lines  shows  all  the  data  for  a  two  hour  period.  The  first 
line  of  data  is  an  indication  of  the  extinction  coefficient.  The  four 
lines  following  indicate  values  for  the  BARNES  transmission  for  the 
filter  indicated  in  the  leftmost  column. 

Symbols  used  are  as  follows: 

EXTINCTION  COEFFICIENT: 

data  not  able  to  be  obtained  for  that  minute, 

/  data  available  but  above  low  visibility  threshold, 

A-Z  indicates  value  of  extinction  coefficient  value  (see 
Figure  17.), 

blank  indicates  calibration  signal  on  Eltro  channel. 

BARNES  TRANSMISSION: 

A-Z  indicates  transmission  value  on  a  scale  of  0  to 
100%  (see  Figure  17. ). 
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Figure  16.  Sample  of  Low  Visibility  Data  File 
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A  program  has  been  written  for  printout  out  data  stored  in  the 
Low  Visibility  Data  Files  for  selected  periods  of  time.  A  sample  is 
shown  in  Figure  18. 


I I. 7  LOW  VISIBILITY  DATA  TAPE  DIRECTORY 


The  Low  Visibility  data  files  that  are  produced  by  the  software 
package  described  above  are  stored  on  magnetic  tapes  issued, 
catalogued,  and  housed  at  the  A.F.G.L.  Computer  Center.  Table  11., 
the  Computer  Center  (CC)  Low  Visibility  Data  Tape  Directory,  lists  all 
of  the  active  CC  tapes  by  tape  number  and  the  data  intervals 
represented. 


However,  after  some  experience  with  this  data  set,  it  was  found 
that  the  short  runtime  of  the  software  procedure  file  and  the  need  for 
data  sets  with  and  without  the  selection  "window"  allows  rapid 
regeneration  of  either  data  set  eliminating  the  backup  tape 
requirement. 


Table  11.  Computer  Center  (CC)  Low  Visibility  Data  Tape  Directory 


JAN  FEB  MAR 

1977  3213 

1978  2842  2720  2720 

1979  1417  0003  0003 

1980  3908  4287  4287 


APR  MAY  JUN  JUL 

3213  3213  3325  3325 
2720  0766  0766  0766 
0003  0008  0008  0009 
4287  4518  4518  4518 


AUG  SEP  OCT  NOV  DEC 

3325  2726  2726  2726  2882 

1442  1442  1442  1417  1417 

3885  3885  3885  3908  3908 


Table  12.  Backup  (OPA)  Low  Visibility  Data  Tape  Directory 


JAN  FEB  MAR  APR  MAY  JUN  JUL  AUG  SEP  OCT  NOV  DEC 


1977  0025  0034  0032  0931  0927  0033  0038 

1978  0123  0874  0743  0756  0757  0769  0777  0782  0417  0418 

1979  0862  0875  0873  0115  0317  0312 
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II. 8.1  Description  of  the  ERIK  File 


The  ERIK  file  is  a  one-month  file  containing  31  records,  one  for 
each  day  of  the  month.  For  months  containing  less  than  31  days,  the 
extra  records  are  merely  disregarded.  Each  daily  record  contains  an 
array  dimensioned  85  x  24.  There  are  85  entries  for  each  hour  of  the 
day,  the  entries  being  derived  from  a  10  minute  period  during  the 
hour. 


The  data  entries  reported  for  each  hour  are  defined  in  Table  13., 
Format  of  the  Hourly  OPAQUE  Data  Bank  File.  The  85  entries  are 
initialized  as  follows: 

1.  (station  number)  71 

2.  (date)  year,  month,  day,  packed  into  the  6 
rightmost  digits 

3.  (time)  hour  (0,1 ,2,. . .23) 

4.  (duration  of  measurement  cycle)  10 

5-10.  (comments  and  scattering-filter-humidity)  0 

11-57.  (measurement  values)  -1  x  10 
58-77.  (weather  data)  -1  x  10+3^ 

78-84.  (data  quality)  appropriate  number  of  9's 
85.  (rain  data)  -1  x  10+3° 

With  the  exceptions  of  entries  76  and  85  (rainfall  data),  entries 
58  thru  85  are  not  recorded  by  the  measurement  system  data  logger. 

They  are  added  after  the  processing  described  in  this  paper  by  an 
entirely  separate  process  by  A.F.G.L.  which  is  outside  the  scope  of 
this  contract. 

The  processing  of  measurement  values  are  of  several  types: 

1.  The  MR  I  Photopic  channel,  Eltro,  Horizontal  Luxmeter,  Night  Path 
Luminance,  and  the  east  direction  VPFM  require  the  beginning 
value,  end  value,  max  value,  min  value,  and  number  of  samples 
obtained  in  the  10  minute  period. 
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H 


Table  13.  Format  of  the  Hourly  OPAQUE  Data  Bank  File 


Data  File 
Word  No. 

Data  Item 

Measurement  Data 

Logger  Channel 

1 

Station  No. 

=  71 

2 

Date  -  Year,Month,Day 

3 

Time 

4 

Duration  of  Measurement 
Cycle 

010 

5 

Comment  Numbers 

6 

li  li  H 

7 

li  li  li 

8 

li  li  li 

9 

li  li  li 

10 

Scattering  x  100  +  Filter 
x  10  +  Humidity 

11 

ss  beg 

12 

S$  FIN 

13 

Ss  MAX 

AEG  Point  Visibility  Meter 

0 

14 

S$  MIN 

15 

NV 

Number  of  Measurements 

16 

Eg  BEG 

17 

E  FIN 

g 

18 

E„  MAX 

Eltro  Transmissometer 

4 

19 

E  MIN 

g 

20 

NV 

21 

El  BEG 

22 

el  FIN 

23 

El  max 

Horizontal  Luxmeter 

24 

24 

El  min 

25 

NV 

26 

Ej  (North) 

27 

Ey  (East 

28 

29 

eJ  (South) 
eJJ  (West) 

Vertical  Luxmeter 

25 

(compass  points 
from  26) 
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Table  13.  Format  of  the  Hourly  OPAQUE  Data  Bank  File  (Cont) 
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Table  13.  Format  of  the  Hourly  OPAQUE  Data  Bank  File  (Cont) 


Data  File 

Word  No. 

Data  Item 

Measurement 

Data  Logger  Channel 

* 

ill 

Before 

Days  After 

1 

Day  96 

96-145  Day  145 

1977 

1977  1977 

53 

T1 

3-5pm  BEG 

f  =  0 

f  =  1 

54 

T? 

8-1 2pm  Barnes 

f  =  3 

f  =  3  f  =  3 

Transmissometer 

(500m) 

55 

T, 

8-1 3pm 

f  =  2 

f  =  2  f  =  2 

Channel  21 

56 

Tx 

Open  or  4pm 

f  =  1 

f  =  0 

* 

• 

57 

T8 

3-5pm  FIN 

f  =  0 

f  =  1 

E 

58 

X 

59 

A 

L 

60 

B 

Aerosol  Data 

1 

61 

C 

P 

62 

D 

63 

E 

. 

L' 

'—54 . 

— F" . 

3- 5pm  Barnes 

22 

■ 

Transmissometer 

(500m) 

65 

G 

8- 12pm 

66 

H 

67 

I 

Turbulence  Data 

r’ 

68 

N 

Cloud  Cover 

69 

dd 

Wind  Direction  at  10  m 

70 

ff 

Wind  Speed  at  10  m 

71 

d?d? 

Wind  Direction  at  2  m 

72 

f2f2 

Wind  Speed  at  2  m 

73 

Pressure 

- 

74 

TTT 

Temperature 

i 

►  *r 

75 

TdTdTd 

Dew  Point  Temperature 

76 

rrr 

Rain  Rate 

23 

; . 

77 

E 

General  Ground  State 

53 

j 

. -a./ L.  .  .  -  1  .  J - » - * - 

Table  13.  Format  of  the  Hourly  OPAQUE  Data  Bank  File  (Cont) 


Data  File 
Word  No. 

Data  Item 

Measurement 

Data  Logger  Channel 

78 

QQOQ 

Packed  MR1  Data  Quality 

79 

QQQQ 

Packed  Eltro  Data  Quality 

80 

QQQQQQQQ 

Packed  Luxmeter  Data  Quality 

81 

QQQQ 

Packed  Night  Path  Data  Quality 

82 

QQQQQQQ 

Packed  Vis  Lab  Data  Quality 

83 

QQQQQQQQQQ 

Packed  Eppley  Data  Quality 

84 

QQQQQ 

Packed  Barnes  Data  Quality 

85  RRR 


Total  Rain  for  past  hour  23  (Total  Rain) 


2.  The  vertical  Luxmeter  requires  one  value  from  each  of  the  four 
compass  points. 

3.  The  VPFM  samples  in  the  south,  west,  and  north  compass  Doints  are 
required  in  addition  to  the  5  values  above  for  the  east 

di recti  on. 

4.  The  direct  Eppley  and  Barnes  instrument  require  values  entered, 
depending  on  the  filter  being  used  for  the  measurement. 


All  data  values  are  entered  into  the  daily  arrays  except  if  the 
value  was  not  physically  present,  or  the  data  could  not  be 
interpreted,  or  the  data  was  out  of  range,  and  then  a  distinguishable 
flag  value  is  entered  in  its  place.  Hence,  if  a  scientific  value  is 
not  entered  for  one  of  these  reasons,  one  of  the  following  values  will 
be  entered  in  its  place: 


-1  x  10 
-9  x  10 


+30 

+99 


+8  x  10 


+88 


-8  x  10 


+88 


raw  data  for  that  time  does  not  exist; 
raw  data  exists,  but  it  is  impossible  to 
interpret; 

the  calibrated  scientific  value  is  out-of-range 
(too  large); 

the  calibrated  scientific  value  is  out-of-range 
(too  small). 


II. 8. 2  Overview  of  the  ERIK  File  Generating  Process 

An  overview  of  the  programs  used  to  generate  and  examine  the  ERIK 
files  is  shown  in  Figure  19.  The  boxes  show  the  permanent  files 
involved,  and  the  directed  lines  show  the  procedures  necessary  to 
accomplish  the  task. 

Before  the  values  can  be  placed  in  the  ERIK  file,  it  must  be 
initialized  with  the  INERIK  procedure.  The  initial  values  have  been 
listed  previously. 

The  ERIK  file  is  generated  from  the  three  stripped  data  file:  The 
Stripped  Minute  Channel  File,  the  Stripped  Luxmeter  File,  and  the 
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Execute,  CteAULUX 
program  tcuice 


rtnppec/  aewu* 

Mmute  * 

Channel 
File. 

Directory 


Stripped 
Lu/ meter 
F/Ze 


Modified 

Stripped 

Minute 

Chann&J 

File 

Directory 


£to/A : 


LUXFF/t 


/ouo  ssmp/es  of  1  u /.meter 
c/rffe  xerHoeeJ  at  gain 
clnange 


Tr/tiati-ze  A/e 


f/JBRIK 


OP4MAP 


&*/f 

f/Je 


I  Convent*, 

%  Zbto. 


Z/S££IK 


Replace 


tr - 7 

1 1  7emporfmA 
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Figure  19.  Overall  View  of  FRIKFILE  Oeneratlnq  Program 


Stripped  Vislab  File.  The  three  corresponding  procedures  used  to 
accomplish  this  are  ERIK,  LUXER1K,  and  VISERIK.  These  procedures 
generally  depend  on  the  time  periods  of  the  data. 

Before  the  ERIK  file  generation  is  done,  it  is  necessary  to 
modify  the  Stripped  Minute  Channel  File  with  the  procedure  CLEANLX. 

The  reason  for  doing  this  is  briefly  as  follows.  One  of  the 
instruments  (the  non-rotating  luxmeter)  has  several  ranges.  When  the 
ambient  illumination  reaches  a  certain  level,  the  instrument  range 
changes.  This  change  has  a  time  constant  such  that  one  or  two  of  the 
stripped  minute  samples  are  invalid.  The  CLEANLX  procedure  searches 
the  Stripped  Minute  Channel  File  and  removes  (makes  the  data  look  like 
it  is  missing)  all  samples  where  this  change  occurs.  By  executing 
this  procedure  twice,  two  consecutive  samples  where  this  range  change 
occurs  are  removed.  In  Figure  19.,  the  original  and  the  modified 
Stripped  Minute  Channel  files  are  in  effect  the  same  permanent  file;  a 
new  Stripped  Minute  Channel  File  is  not  made  in  this  modification 
procedure. 

Sometimes  it  is  desirable  to  change  a  few  entries  in  the  ERIK 
file  while  leaving  the  others  intact.  This  can  be  accomplished  with 
the  REPLACE  procedure.  A  Temporary  ERIK  File  containing  the  required 
new  values  is  generated  exactly  as  the  ERIK  File.  Values  in  this 
temporary  file  can  then  replace  corresponding  values  in  the  ERIK  File. 
In  general,  one  or  more  channels  (1  to  85)  can  be  changed  between  any 
two  times  in  the  month. 

The  contents  of  the  ERIK  File  can  be  examined  with  the  OPAMAP 
procedure.  Outputs  that  can  be  generated  include  daily  maps  (either 
for  individual  days  or  for  a  complete  month)  and  numerical  data  in 
various  forms. 
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1 1. 9  ERIKFILE  DATA  TAPE  DIRECTORY 


The  ERIKFILE  data  files  that  are  produced  by  the  software  package 
described  above  are  stored  on  magnetic  tapes  issued,  catalogued,  and 
housed  at  the  A.F.G.L.  Computer  Center.  Table  14.,  the  Computer 
Center  (CC)  ERIKFILE  Data  Tape  Directory,  lists  all  of  the  active  CC 
tapes  by  tape  number  and  the  data  intervals  represented. 


Due  to  the  time  and  effort  required  in  generating  these  data 
tapes,  and  the  possibilities  for  program  or  human  error  in  processing 
the  data  contained  on  these  tapes,  a  double  or  backup  copy  of  each  CC 
stripped  data  tape  is  generated  and  stored  by  the  ULowell  contractor. 
Table  15.,  tne  Backup  (CPA)  ERIKFILE  Data  Tape  Directory,  lists  all  of 
the  active  backup  tapes  by  tape  number  and  the  data  intervals 
represented. 

Table  14.  Computer  Center  (CC)  ERIKFILE  Data  Tape  Directory 


JAN 

FEB 

MAR 

APR 

MAY 

JUN 

JUL 

AUG 

SEP 

OCT 

NOV 

DEC 

1977 

1586 

1586 

1586 

1586 

1586 

1586 

1586 

1978 

1586 

1586 

1586 

1586 

1586 

1586 

1586 

1586 

1586 

1586 

1586 

1586 

1979 

2801 

2801 

2801 

2801 

2801 

2801 

2801 

2801 

2801 

2801 

2801 

2801 

1980 

2801 

2801 

2801 

2801 

2801 

2801 

2801 

2801 

Table 

!  15. 

Backup  (OPA)  ERIKFILE  Data  Tape  Directory 

JAN 

FEB 

MAR 

APR 

MAY 

JUN 

JUL 

AUG 

SEP 

OCT 

NOV 

DEC 

1977 

700 

700 

700 

700 

700 

700 

700 

1978 

700 

700 

700 

700 

700 

700 

700 

700 

700 

700 

700 

700 

1979 

702 

702 

702 

702 

702 

702 

702 

702 

702 

702 

702 

702 

1980 

702 

70? 

702 

702 

702 

702 

702 

702 
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11.10  TIME  PLOT  GENERATION 


A  procedure  was  generated  to  produce  consecutive  time  plots  for 
all  of  the  instruments  so  that  their  performance  could  be  easily 
studied  and  compared.  A  time  scale  of  1  day/page  was  used,  and  the 
channels  were  plotted  on  separate  graphs  as  follows: 

1.  AEG  and/or  ELTRO 

2.  NIGHT  PATH  INSTRUMENT 

3.  VPFM  (photometer  and  aximuth) 

4.  C0^  LASER  (gain,  meter,  angle,  and  PAR) 

5.  BARNES  (4  channels) 

6.  ILLUMINOMETER  (vertical,  horizontal,  and  aximuth) 

7.  EPPLEY  (filtered  and  direct) 

Time  plots  have  been  generated  for  the  last  half  of  1977  and  all  of 
1978.  Samples  are  shown  in  Figures  20  through  26. 
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Figure  21.  Time  Plot:  Night  Path  Luminance  Meter 
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Figure  22.  Time  Plot:  Variable  Path  Function  Meter 
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Figure  25.  Time  Pint:  Illuminometer 
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APPENDIX  A.  OPAQUE  DATA  LOGGER  CONTROL  PROGRAMS 


The  design  of  the  OPAQUE  data  logger/controller  is  based  on  the 
use  of  an  Intel  8008  microprocessor  with  a  memory-stored  control 
structure  to  facilitate  on-site  changes  to  the  experiment  sampling 
rates  and  allows  instruments  to  be  added  or  deleted  as  desired.  Since 
the  initial  installation  in  1976,  the  mix  of  instruments  and  the  data 
sampling  rates  have  undergone  numerous  changes.  The  use  of  eight 
input  ports  and  eight  output  ports  for  all  I/O  operations  allows  both 
internal  processing  operations  and  the  ability  to  map  any  input  bit  to 
any  output  bit.  The  use  of  this  technique  can  be  seen  throughout  the 
program  listing  in  Appendix  B  and  lends  the  necessary  flexibility  to 
continuously  update  the  data  logger/controller. 

Another  feature  that  has  been  invaluable  in  the  field 
modifications  is  the  collection  of  utility  programs  that  were  designed 
along  with  the  hardware  which  enable  the  data  logger/controller  to  be 
used  for  the  development  and  debugging  of  new  subroutine  or 
modifications  to  existing  routines.  These  routines  are  described  as 
they  occur  in  the  listing. 

The  listing  is  formatted  as  follows: 

a)  A  Memory  Map  giving  the  memory  locations  for  all  the  'stand¬ 
alone'  programs  and  the  subroutines  in  terms  of  their 
absolute  addresses  (a  few  of  these  routines  are 
relocatable). 

b)  A  standardized  description  is  given  for  each  routine  that 
includes  a  description  of  the  routine  and  its  intended  use, 
the  entry  and  exit  locations  for  the  routine,  the  CPU 
resistors  used,  any  reserved  locations  used,  the 
input/output  ports  used,  other  subroutines  called  by  the 
routine  being  discussed,  and  any  alternate  entry  location 
into  the  routine. 


c)  A  heavily  annotated  source  listing  of  each  routine  in  the 
standard  assembly  language  format  of  page  and  byte  address, 
the  machine  code,  the  nmeumonic  instruction,  and  the  comment 
area.  A  careful  reading  of  the  description  and  the  comments 
given  for  each  routine  allows  one  to  reconstruct  the 
algorithmic  flowchart  that  was  used  to  initially  develop  the 
routine.  A  simple  reading  of  the  comments  allows  a 
reasonably  rapid  understanding  of  the  purpose  and  use  of 
each  routine. 

It  should  be  noted  that  all  of  these  routines  could  be  modified 
to  operate  on  an  8080,  8085,  or  Z-80  microprocessor  if  the  CPU 
resistor  codes  were  changed,  and  a  hardware  stack  established  for 
subroutine  calls  and  returns  along  with  readdressing  the  I/O  ports. 


APPENDIX  B.  MEMORY  MAP  oF  OPAQUE  DATA  LOGGER/CONTROLLER 
PROGRAMS  -  Absolute  Meinorv  Locations 


Routine 

Start  Addr. 

End  Addr. 

Naeie 

( P3-b  yte ) 

( ps-b  yte ) 

RST's 

00-000 

00-067 

MAIN 

00-070 

00-213 

CHTEST 

00-250 

00-316 

ADVT 

00-317 

00-334 

CLOCK 

01-000 

01-115 

CMD 

01-1 1G 

01-132 

PMT 

01-133 

01-155 

DSPY 

01-156 

01-163 

TIME 

01-200 

01-313 

TPTFMT 

01-320 

01-370 

TYMSYN 

02-000 

02-027 

SCANSEC 

02-030 

02-047 

STCK 

02-070 

02-123 

BLKSZ 

02-140 

02-177 

MRCDR 

02-200 

02-244 

SHIFT 

02-260 

02-303 

PACKER 

02-320 

02-377 

DPTFMT 

03-000 

03-025 

Reserved 

03-100 

03-377 

DIGMUX 

04-000 

04-064 

TWTFMT 

04-100 

04-137 

DWTFMT 

04-140 

04-162 

CLEAR 

04-200 

04-307 

VERIFY 

04-310 

04-371 

BINLD 

05-000 

05-035 

RDY 

05-036 

05-047 

ERRPRNT 

05-050 

05-077 

PDUMP 

05-100 

05-135 

PRDY 

05-136 

05-146 

LDTR 

05-147 

05-163 

PROGIN 

05-200 

05-251 

ASTK 

05-252 

05-270 

MDUMP 

05-300 

05-355 

SPACE 

05-356 

05-372 

PNTBIN 

06-000 

06-037 

FORMAT 

06-040 

06-061 

CRLF 

06-100 

06-122 

TYMTAG 

06-140 

06-160 

RDRCNTL 

06-161 

06-175 

MIN 

06-200 

06-243 

BLKCTR 

06-250 

06-267 

INSTIN 

06-300 

06-355 

PUSH  A 

06-360 

06-365 

POP  A 

06-366 

06-374 

LOADER 

07-000 

07-031 

LDLINK 

07-050 

07-056 

AEGSEC 

07-100 

07-124 

AEGLOC 

07-150 

07-177 

QLOOK 

07-210 

07-232 

XFER 

07-242 

07-274 

ADTEST 

07-300 

07-341 

ENDE 

07-342 

07-373 

B-  1 


OPAQUE  Data  Logaer/Control ler  Programs 
for  8008  microprocessor 


The  followina  eisht  RST  (restart)  instructions  as  for  operator 
use  in  selecting  any  one  of  the  ei3ht  major  operational  programs 


0 

104 

RSTO.JMP 

005 

000 

/ 

Jump  to  BINLDt  loads  all 

000 

/ 

eisht  eases  of  RAM 

005 

/ 

from  binary  tape 

3 

000 

HLT 

/ 

punched  by  PDUMP. 

4 

000 

HLT 

5 

000 

HLT 

6 

000 

HLT 

7 

000 

HLT 

10 

104 

RST1 . JhP 

006 

300 

/ 

Jump  to  INSTINf  allows 

300 

/ 

entry  of  machine  codes 

006 

/ 

into  memory  at  pase(sH) 

13 

000 

HLT 

/ 

and  byte(sL).  Loading 

14 

000 

HLT 

/ 

continues  to  the  end  of 

15 

000 

HLT 

/ 

selected  ease. 

16 

000 

HLT 

17 

000 

HLT 

20 

104 

RST2.JMP 

005 

300 

/ 

Jump  to  HDUMPr  prints 

300 

/ 

on  TTY  the  contents  of 

005 

/ 

the  selected  memory  page 

23 

000 

HLT 

/ 

starting  at  byte(=L> . 

24 

000 

HLT 

25 

104 

JHP 

005 

200 

/ 

Jump  to  PROGIN,  pacKs 

200 

/ 

3  ASCII  digits  into  3 

005 

/ 

octal  digits  (not>377). 

30 

104 

R5T3, JMP 

005 

100 

/ 

Jump  to  PDUMP,  punches 

100 

/ 

Memory  eases  0  to  7  on 

005 

/ 

paper  tape  in  binary. 

33 

000 

HLT 

/ 

Formatted  for  loading 

34 

000 

HLT 

/ 

with  program  6INLD. 

35 

000 

HLT 

36 

000 

HLT 

37 

000 

HLT 

40 

104 

RST4 ,  JHP 

007 

300 

/ 

Jump  to  ADTEST,  displays 

300 

/ 

the  A/D  conversion  value 

007 

/ 

for  the  analog  channel 

43 

000 

HLT 

/ 

selected  by  the  console 

44 

000 

HLT 

/ 

switches. 

45 

000 

HLT 

/ 

Discrete  bits  can  be 

46 

000 

HLT 

/ 

displayed  on  panel  LEDs. 

47 

000 

HLT 

50 

104 

RST5  < JMP 

007 

210 

/ 

Jump  to  QLOOK,  prints 

210 

/ 

the  last  256  bytes 

007 

/ 

written  to  the  magnetic 

53 

000 

HLT 

/ 

tape  and  resumes  auto 

54 

000 

HLT 

/ 

sampling  operations. 

0 

56 

000 

HLT 

0 

57 

000 

HLT 

0 

60 

104 

RSTB'JMP  004 

310  / 

Jump  to  VERIFY*  used  to 

310 

/ 

compare  and  correct 

004 

/ 

stored  machine  codes. 

0 

63 

000 

HLT 

/ 

The  value  stored  at 

0 

64 

000 

HLT 

/ 

a  given  location  is 

0 

65 

000 

HLT 

/ 

compared  with  the  paper 

0 

66 

000 

HLT 

/ 

tape  value  and  corrected 

0 

67 

000 

HLT 

/ 

to  tape  value  if  wrong. 

Program  MAIN. 

Description:  Main  linking  program  which  carries  out  the  sequential 
sampling  of  all  analog  data  channelsr  formats  time 
and  data  uords>  and  writes  these  to  magnetic  tape. 
Once  initiated*  runs  automatically  until  terminated 
bv  end-of-tape  condition*  system  malfunction*  or 
operator  interuent ion . 

Entry  point!  00-070 

End  of  routine!  00-213 

CPU  Registers  used!  A*E*H*L 

Reserved  locations  used!  SCAN  flag  (03-220) 

TIME  TAG  flag  (03-221) 

REQUEST  Pointer  (03-222) 

Input/Output  ports  used!  None 

Subroutines  called!  CLEAR*  CLOCK*  TYMSYN*  CHTEST »  MIN*  TWTFMT , 

DIGMUX*  DWTFMT. 

Alternate  entry  point!  PROG  at  00-073 


0 

70 

106 

MAIN. CAL 

004 

200 

/ 

Call  CLEAR  routine 

200 

/ 

(initializes  all  arrays 

004 

/ 

and  counters) 

0 

73 

106 

PROG, CAL 

001 

000 

/ 

Call  CLOCK  routine 

000 

/ 

(  gets  the  current  time 

001 

/ 

word  via  488  interface) 

0 

76 

106 

CAL 

002 

000 

/ 

Call  TYMSYN  routine 

000 

/ 

(modifies  time  masK  for 

002 

/ 

sampling  scan  nephl.) 

0 

101 

304 

LAE 

/ 

Get  sampling  time  masK. 

0 

102 

074 

CPI 

000 

/ 

Is  masK  =000?  If  =0* 

000 

/ 

time  change  <  1  sec. 

0 

104 

150 

JTZ 

000 

073 

/ 

Jump  to  PROG  if  masK=  0 

073 

/ 

and  update  sampling  time 

000 

/ 

mask . 

0 

107 

074 

CPI 

001 

/ 

Is  time  mask  =1?  Tests 

001 

/ 

for  1  sec-continuous  bit 

0 

111 

104 

JMP 

000 

220 

/ 

Jump  to  TEST  second  mask 

220 

/ 

for  both  1  sec.  continuous 

000 

/ 

and  1  sec/10  min  masks. 

0 

114 

056 

SAMPL.LHI 

003 

/ 

Set  memory  byte  pointer 

003 

/ 

to  page  3.  byte  221*  the 

0 

116 

066 

LLI 

221 

/ 

location  of  the  TIME  TAG 

221 

/ 

ON/OFF  flag  register. 

0 

120 

076 

LMI 

077 

/ 

Load  flag  with  077  to 

077 

/ 

turn  flag  ON. 

0 

122 

060 

INL 

/ 

Increment  byte  pointer. 

0 

123 

076 

LMI 

277 

/ 

Load(start  address-1)  of 

277 

/ 

sampling  REQUEST  array. 

B-  3 


P* 


;  > 

0 

125 

106 

CYCLE, CAL 

000 

250 

/ 

Call  CHTEST  routine 

’ 

250 

/ 

(compares  time  mask  with 

000 

/ 

REQUEST  array  elements) 

0 

130 

LHI 

003 

/ 

Set  memory  byte  pointer 

TJ 

003 

/ 

to  pase  3,  byte  220,  the 

0 

132 

066 

LLI 

220 

j 

scan  analoa  channels 

220 

/ 

flaa  set  by  CHTEST  as 

0 

134 

LAM 

/ 

0=stop>  l=sample. 

■-Y 

0 

135 

074 

CPI 

000 

/ 

Test  sampling  request 

0 

137 

000 

150 

JTZ 

000 

145 

t 

/ 

bit. 

Jump  to  PASS  if  no 

Ul^i 

145 

000 

/ 

samplin9  is  requested, 
i.e.»  SCAN  flaa  is  zero. 

/ 

0 

142 

104 

JMP 

000 

153 

/ 

Jump  to  CONT  if  channel 

-V 

153 

/ 

samplina  is  requested. 

000 

1 

0 

145 

106 

PASS, CAL 

006 

200 

/ 

Call  MIN  routine 

200 

/ 

(outputs  one  minute 

V*  - 

006 

/ 

experiment  commands) 

.■  . 

0 

150 

104 

JMP 

000 

073 

/ 

Jump  to  PROG,  all  chan- 

073 

/ 

reauestina  service  this 

/ 

scan  have  been  sampled. 

0 

153 

066 

CONT  >LLI 

221 

/ 

Get  TIME  TAG  flaa  at 

/ 

paae  3,  byte  221. 

’  * 

0 

155 

307 

LAM 

/ 

If  flaa  =77,  write  time 

't  "b 

0 

158 

074 

CPI 

077 

/ 

word  as  the  first  word 

/ 

of  new  samplina  scan. 

0 

180 

150 

JTZ 

000 

166 

/ 

Jump  to  STAMP  if  flaa 

« 

166 

000 

/ 

is  set  (=77). 

Y  . 

0 

163 

104 

JMP 

000 

205 

/ 

Jump  to  VALUE  and  write 

's  ■  - 

f 

a  data  word  to  tape. 

000 

0 

166 

106 

STAMP, CAL 

004 

100 

/ 

Call  TWTFMT  routine 

i 

100 

/ 

(formats  and  writes  time 

004 

/ 

words  of  12  hex  diaits) 

0 

171 

106 

PASSNrCAL 

004 

000 

/ 

Cal  1  DIGMUX  routine 

000 

/ 

(loads  SHIFT  array  with 

'  *  ,* 

004 

/ 

S  hex  diait  data  word) 

0 

174 

300 

LAA 

/  "hooks 

’or  additional  calls" 

0 

175 

300 

LAA 

0 

176 

300 

LAA 

0 

177 

300 

LAA 

*  V  - 

0 

200 

300 

LAA 

0 

201 

300 

LAA 

/  "hooks 

For  additional  calls" 

0 

202 

104 

JMP 

000 

125 

/ 

Jump  to  CYCLE  and 

>-r^- 

125 

f 

continue  channel 

000 

/ 

REQUEST  testins. 

•  ■ 

0 

205 

106 

VALUE, CAL 

004 

140 

/ 

Call  DHTFMT  routine 

■ 

140 

/ 

(formats  and  writes 

004 

/ 

9  hex  di9it  data  word) 

o 

210 

104 

JMP 

000 

171 

/ 

Jump  to  PASSN  to  exit 

• 

171 

/ 

from  scannina  for  data 

000 

/ 

channel  sample  requests. 

0 

213 

000 

HLT 

/ 

end  of  MAIN 

*" .  - 

0 

214 

000 

0 

215 

000 

' . 

0 

216 

000 

0 

217 

000 
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TEST, CPI  OOS 


0 

220 

074 

0 

005 

0 

222 

150 

0 

073 

0 

000 

0 

225 

074 

0 

001 

0 

227 

150 

0 

073 

0 

000 

0 

232 

104 

0 

114 

0 

000 

0 

235 

000 

/  Test  for  l  sec/continuous 
/  and  1  sec/10  minute  masks. 

JTZ  OOO  073  /  Jump  to  PROG  if  mask  =  5 

/  and  update  samplins  time 
/  mask. 

CPI  001  /  Test  for  1  sec/cont i nuous . 

/ 

JTZ  000  073  /  Jump  to  PROG  and  continue. 

/ 

/ 

JMP  000  114  /  Jump  to  SAMPL,  time  mask  not 

/  1  sec/continuous  or  1  sec/min. 
/ 

HLT  / 


Subroutine  CHTEST. 

Description!  Compares  time  word  mask  in  resister  E  with  each 

of  the  analos  channel  sample  request  masks  in  the 
REQUEST  array.  When  a  match  occurs,  the  last  two 
disits  of  the  array  byte  address  are  converted  to 
Binary-Coded-Decimal ,  BCD,  and  stored  in  the  ANALOG 
ADDRESS  Latch  resister  and  the  A/D  conversion  is 
initiated  on  the  selected  analos  channel. 

Entry  point!  00-250 

End  of  routine!  00-316 

CPU  Resisters  used!  A,D,E,H,L 

Reserved  locations  used!  SCAN  flas  (03-320) 

REQUEST  array  pointer  (03-222) 

REQUEST  array  (from  03-300  to  03-340) 
Input/Output  ports  used!  0UT+2S,  ANALOG  ADDRESS  Latch  Resister 
Subroutines  called!  ADUT 
Alternate  entry  point!  LINK  at  00-270 


0 

250 

056 

CHTEST, LHI 

003 

/  Set  memory  byte  pointer 

003 

/  to  pase  3,  byte  222  and 

0 

252 

066 

LLI 

222 

/  set  REQUEST  array 

222 

/  pointer. 

0 

254 

367 

LLM 

/  Increment  REQUEST  array 

0 

255 

060 

NEXT , INL 

/  pointer. 

0 

258 

307 

LAM 

/  Get  next  REQUEST  mask. 

0 

257 

074 

CPI 

000 

/  IP  mask*  000,  scan  at 

000 

/  end  of  REQUEST  array. 

0 

261 

150 

JTZ 

000 

313 

/  Jump  to  SCAN  if  mask 

313 

/  contains  000. 

000 

0 

264 

244 

NDE 

/  Test  for  1  bit  match. 

0 

265 

150 

JTZ 

000 

255 

/  Jump  to  NEXT  if  no  bits 

255 

/  match  and  set  the  next 

000 

/  REQUEST  mask. 

0 

270 

306 

LINK ,LAL 

/  1  or  more  bits  match. 

0 

271 

044 

NDI 

007 

/  Mask  REQUEST  array  byte 

007 

/  pointer  for  low  3  bits. 

0 

273 

330 

LDA 

/  Store  in  D. 

0 

274 

306 

LAL 

/  Get  byte  pointer  asain. 

0 

275 

022 

RAL 

/  Shift  left,  octal  to  BCD 

0 

276 

044 

NDI 

160 

/  Mask  for  middle  3  bits. 

160 

0 

300 

263 

ORD 

/  OR  with  D  to  form  BCD. 

B-  5 


0 

301 

127 

OUT+26 

/  l 

Output  Analog  Addr  in  BCD 

0 

302 

106 

CAL 

000 

317  / 

Call  ADVT  routine 

317 

/ 

(initiates  A/D  convert 

000 

/ 

on  addressed  channel) 

0 

305 

336 

LDL 

/ 

Store  REQUEST  array 

0 

306 

066 

LLI 

222 

/ 

pointer  back  on  page  3, 

222 

/ 

byte  222. 

0 

310 

373 

LMD 

/ 

Do  it. 

0 

311 

OOS 

LAI 

001 

/ 

Set  data  channel  service 

001 

/ 

flag  =1  on  page  3,  byte 

0 

313 

066 

SCAN, LLI 

220 

/ 

220  to  keep  analog 

220 

/ 

sample  REQUEST  testing 

0 

315 

370 

LMA 

/ 

on  for  until  channel  40. 

0 

31S 

007 

RET 

/ 

end  of  CHTEST  routine. 

Subroutine 

ADVT. 

Description:  Tests  for  A/D  converter  BUSY,  and  when  idle. 

initiates  a  conversion  on  the  channel  addressed 
b-/  the  ANALOG  ADDRESS  latch. 

Entry  point:  00-317 
End  of  routine:  00-334 
CPU  Registers  used:  A 
Reserved  locations  used:  None 

Input/Output  ports  used!  OUT+22,  COMMAND  Latch  Register 

INP+4 .  STATUS  Latch  Register 

Subroutines  called!  None 
Alternate  entry  point:  None 


0 

317 

105 

ADVT, INP+4 

/ 

Input  A/D  status  bit 

0 

320 

044 

NDI 

040 

/ 

Mask  with  00100000 

040 

/ 

Test  for  A/D  BUSY. 

0 

322 

150 

JTZ 

000 

317  / 

Jump  to  ADVT  if  A/D 

317 

/ 

is  BUSY. 

000 

0 

325 

006 

LAI 

02  0 

/ 

Load  A  with  00010000 

020 

/ 

Sets  A/D  convert  bit. 

0 

327 

123 

OUT+22 

/ 

Output  to  COMMAND  latch 

0 

330 

006 

LAI 

000 

/ 

Load  A  with  00000000 

000 

/ 

Resets  A/D  convert  bit. 

0 

332 

123 

OUT+22 

/ 

Output  to  COMMAND  latch 

0 

333 

007 

RET 

/ 

end  of  ADVT  routine. 

0 

334 

000 

HLT 

Subroutine  CLOCK. 

Description:  Controls  the  transfer  of  the  day/time  word  from  the 
digital  clocK  to  the  TIME  array  by  addressing  the 
data  losser  as  a  "listener"  and  the  clock  as  a 
"talker"  on  the  488  interface  buss.  Both  the  488 
CONTROL  buss  handshake  sequence  and  the  48B  DATA 
buss  loading  and  unloading  are  carried  out  under 
this  software  control  program.  All  data  is  in  ASCII. 
Entry  point:  01-000 
End  of  routine!  01-115 
CPU  Registers  used:  A.B.H.L 

Reserved  locations  used:  TIME  array  (from  03-200  to  03-217) 
Input/Output  ports  used:  INP+12,  488  CONTROL  Buss 


B-  S 


INP+16 .  488  DATA  Buss 
OUT+32 .  488  CONTROL  Buss 
OUT+36 .  488  DATA  Buss 


Subroutines  called: 

CMD.  CMD1, 

CMD2 

,  DSPY 

,  TIME 

Alternate 

entry  point.'  None 

1 

0 

006 

CLOCK. LAI 

000 

/ 

IEEE  488  Interface  Buss 

000 

/ 

proaram.  diaital  clack. 

1 

2 

137 

OUT+36 

/ 

Clear  DATA  buss 

1 

3 

006 

LAI 

040 

/ 

Load  EOP  command 

040 

/ 

to  clear  interface. 

1 

5 

106 

CAL 

001 

120 

/ 

Call  CMD1  routine 

120 

/ 

(sends  command  to  the 

001 

/ 

CONTROL  buss) 

1 

10 

006 

LAI 

010 

/ 

Load  listener  address  of 

010 

/ 

the  data  loaaer. 

1 

12 

137 

OUT+36 

/ 

Send  listen  address 

1 

13 

106 

CAL 

001  ■ 

116 

/ 

Call  CMD  routine 

116 

/ 

(initiates  CONTROL  buss 

001 

/ 

handshake  sequence) 

1 

16 

006 

LAI 

321 

/ 

Load  talker  address  of 

321 

/ 

the  diaital  clock. 

1 

20 

137 

OUT+36 

/ 

Send  talk  address 

1 

21 

106 

CAL 

001 

116 

/ 

Call  CMD  routine 

116 

001 

1 

24 

006 

LAI 

000 

/ 

Set  all  DATA  buss  lines 

000 

/ 

to  zero. 

1 

26 

137 

OUT+36 

/ 

Send  DATA  buss  clear 

1 

27 

056 

LHI 

003 

/ 

Set  memory  byte  pointer 

003 

/ 

for  paae  3.  byte  177. 

1 

31 

066 

LLI 

177 

/ 

TIME  array  (start-1) 

177 

/ 

address . 

1 

33 

016 

LBI 

014 

/ 

Set  number  of  ASCII  time 

014 

. 

/ 

bytes. 

1 

35 

060 

OU.INL 

/ 

Point  to  1st  TIME  byte. 

1 

36 

006 

LAI 

034 

/ 

Load  REN-NRFD-NDAC 

034 

/ 

command . 

1 

40 

133 

OUT+32 

/ 

Send  to  488  CONTROL  buss 

1 

41 

106 

CAL 

001 

156 

/ 

Call  DSPY  routine. 

156 

/ 

(used  as  software 

001 

/ 

timina  loop,  p/o  test) 

1 

44 

006 

LAI 

024 

/ 

Load  REN-NDAC  command. 

024 

1 

46 

133 

OUT+32 

/ 

Send  to  488  CONTROL  buss 

1 

47 

113 

AG4. INP+12 

/ 

Input  488  CONTROL  BUSS 

1 

50 

074 

CPI 

025 

/ 

Compare  REN-NDAC-DAV 

025 

/ 

with  00010101. 

l 

52 

110 

JFZ 

001 

047 

/ 

Jump  to  AG4  until  the 

047 

/ 

clock  places  an  ASCII 

001 

/ 

time  character  on  buss. 

1 

55 

106 

CAL 

001 

cn 

/ 

Call  DSPY  routine. 

156 

/ 

(software  pause) 

001 

1 

60 

117 

INP+16 

/ 

Input  DATA  buss.  ASCII. 

1 

61 

106 

CAL 

001 

200 

/ 

Call  TIME  routine  to 

200 

/ 

sample  time  mask  in 

001 

/ 

reaister  E. 

1 

64 

006 

LAI 

030 

/ 

Load  REN-NRFD  command 
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030 

/ 

to  signal  data  received 

1 

ss 

133 

QUT+32 

/ 

Send  to  488  CONTROL  buss 

1 

S7 

106 

CAL 

001 

156 

/ 

Call  DSPY  routine. 

156 

/ 

(software  wait  loop) 

001 

1 

72 

Oil 

DCS 

/ 

Decrement  #  byte  counter 

1 

73 

110 

JFZ 

001 

035 

/ 

Jump  to  00  until  all 

035 

/ 

time  bytes  have  been 

001 

/ 

received  by  data  logger. 

1 

76 

106 

CAL 

001 

124 

/ 

Call  CMD2  routine  to 

12* 

/ 

restore  *88  busses  to 

001 

/ 

remote/'.dle  state. 

1 

101 

006 

LAI 

137 

/ 

Load  untalK  command  for 

137 

/ 

digital  clocK. 

1 

103 

137 

OUT+36 

/ 

Send  to  488  DATA  buss 

1 

104 

106 

CAL 

001 

116 

/ 

Call  CMD  routine  to 

116 

/ 

carry  out  handshake 

001 

/ 

sequence . 

1 

107 

106 

CAL 

001 

133 

/ 

Call  PMT  routine. 

133 

/ 

(echo  prints  contents 

001 

/ 

of  TIME  array  for  test) 

1 

112 

006 

LAI 

000 

/ 

Load  488  DATA  buss  clear 

000 

/ 

command. 

< 

114 

137 

OUT+36 

/ 

Send  to  488  DATA  buss 

1 

115 

007 

RET 

/ 

end  of  CLOCK  routine 

Subroutine  CMD. 

Description!  Loads  480  CONTROL  buss  with  REN-MRE-DAV  commands. 

Entry  point!  01-116 

End  of  routine!  01-132 

CPU  Registers  used!  A 

Reserved  locations  used!  None 

Input/Output  ports  used!  OUT+32,  488  CONTROL  Buss 
Subroutines  called!  DSPY 

Alternate  entry  points!  CMD1  at  01-120,  CMD2  at  01-124 


1 

116 

006 

CMD, LAI 

023 

/ 

Load  REN-MRE-DAV 

023 

/ 

command . 

1 

120 

133 

CMD1 , QUT+32 

/ 

Send  to  488  CONTROL  buss 

1 

121 

106 

CAL 

001 

156 

/ 

Call  DSPY  routine. 

156 

/ 

(software  pause  loop) 

001 

1 

124 

006 

CMDZ,LAI 

020 

/ 

Load  REN  command. 

020 

1 

126 

133 

OUT+32 

/ 

Send  to  488  CONTROL  buss 

1 

127 

106 

CAL 

001 

156 

/ 

Call  DSPY  routine. 

156 

/ 

(software  wait  loop) 

001 

1 

132 

007 

RET 

/ 

end  of  CMD  routine 

Subroutine  PMT. 

Description!  Prints  the  day/time  word  stored  in  the  array  TIME. 

No  conversion  is  needed  as  all  bytes  on  the  488 
DATA  buss  are  transmitted  and  received  in  ASCII. 
First  instruction,  RET  (007),  must  be  replaced  by 
LLI  (066>  to  enable  print-out.  Used  for  testing. 
Entry  point!  01-133 


B-  8 


End  of  routine:  01-155 
CPU  Registers  used!  A.B.L 

Reserved  locations  used!  TIME  array  (from  03-200  to  03-215) 
Input/Output  ports  used:  INP+2.  TTY  Status 

0UT+20 .  OUTPUT  to  TTY 

Subroutines  called:  None 

Alternate  entry  point:  PRNT  at  01-137 


1 

133 

007 

PMT.RET 

/ 

Change  to  LLI(=0SB)  to 

1 

134 

177 

/ 

echo  print  TIME  array. 

1 

135 

016 

LBI 

020 

/ 

Set  B=  number  of  ASCII 

020 

/ 

TIME  bytes  for  print. 

1 

137 

300 

PRNT .LAA 

/ 

Move  A  to  A  (  a  NOP) 

1 

140 

080 

LO.INL 

/ 

Point  to  next  TIME  b*/te 

1 

141 

103 

GO. INP+2 

/ 

Input  TTY  status  latch 

1 

142 

032 

RAR 

/ 

Shift  A  right  one  bit 

1 

143 

032 

RAR 

1 

144 

too 

JFC 

001 

141 

/ 

Jump  to  GO  if  the  TTY 

141 

/ 

is  busy. 

001 

1 

147 

307 

LAM 

/ 

Get  ASCII  character. 

i 

150 

121 

0UT+20 

/ 

Output  to  TTY  for  print 

i 

* 

151 

Oil 

DCB 

/ 

Decrement  #  byte  counte 

1 

152 

110 

JFZ 

001 

140 

/ 

Jump  to  LO  until  all 

140 

/ 

TIME  bytes  are  printed. 

001 

1 

155 

007 

RET 

/ 

end  of  PMT  routine 

Subroutine  DSPY. 

Description!  Uses  DATA  Latch  to  display  488  CONTROL  Buss  contents. 

and  DIGMUX  Latch  to  display  488  DATA  Buss  contents 
on  front  panel  LED's.  Routine  time  of  execution  used 

as  a  software  tirains  loop  for  CLOCK  routine. 

Entry  point:  01-158 
End  of  routine!  01-183 
CPU  Reaister  used:  A 
Reserved  locations  used:  None 

Input/Output  ports  used:  INP+12.  488  CONTROL  Buss  Input 

INP+16.  488  DATA  Buss  Input 
OUT+24,  488  DATA  Latch 
QUT+30.  DIGMUX  Latch 

Subroutines  called:  None 
Alternate  entry  points:  None 


1 

156 

113 

DSPY. INP+12 

/ 

Input  488  CONTROL  buss 

1 

157 

125 

OUT+24 

/ 

Output  to  DATA  latch. 

1 

160 

117 

INP+16 

/ 

Input  488  DATA  buss. 

1 

161 

131 

QUT+30 

/ 

Output  to  DIGMUX  latch 

1 

162 

007 

RET 

/ 

end  of  DSPY  routine 

1 

163 

000 

HLT 

Subroutine  TIME. 

Description:  Called  by  CLOCK  routine  after  each  ASCII  time  byte 
is  read  in  from  the  digital  clock  to  generate  the 
the  sample  time  mask  in  register  E.  The  time  mask 
is  generated  in  bit  positions  0.1. 2.3.  with  bits 
4  and  5  modified  by  TYMSYN  and  LUXSEC. 


2 
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Reserved  locations  used:  TIME  array 
Input/Qutput  ports  used:  None 
Subroutines  called:  None 
Alternate  entry  points:  None 


1 

200 

330 

TIME.LDA 

1 

201 

30S 

LAL 

1 

202 

074 

CPI 

207 

207 

1 

204 

140 

JTC 

001 

307 

001 

1 

207 

150 

JTZ 

001 

272 

001 

1 

212 

074 

CPI 

210 

210 

< 

214 

150 

JTZ 

001 

240 

001 

1 

217 

074 

CPI 

212 

212 

1 

221 

110 

JFZ 

001 

307 

001 

1 

224 

303 

LAD 

1 

225 

277 

CPM 

1 

22S 

150 

JTZ 

001 

2S3 

001 

1 

231 

304 

LAE 

1 

232 

044 

NDI 

017 

017 

1 

234 

340 

LEA 

l 

235 

104 

JMP 

001 

307 

001 

1 

240 

303 

EX3.LAD 

1 

241 

277 

CPM 

1 

242 

150 

JTZ 

001 

254 

001 

1 

245 

304 

LAE 

1 

24S 

044 

NDI 

017 

017 

1 

250 

340 

LEA 

1 

251 

104 

JMP 

001 

307 

001 

1 

254 

304 

EX4.LAE 

1 

255 

044 

NDI 

005 

005 

1 

257 

340 

LEA 

1 

2G0 

104 

JMP 

001 

(from  03-200  to  03-215) 


/  Save  time  byte  in  rea  D 
/  Get  time  array  pointer. 
/  Pointina  at  10s  of 
/  minutes  byte? 

307  /  Jump  to  EX  if  pointina 
/  at  byte  before  10s  of 
/  Minutes. 

272  /  Jump  to  EX1  if  pointina 
/  at  10s  of  Minutes  byte. 

/  Pointina  at  unit 
/  minutes  byte? 

240  /  Jump  to  EX3  if  pointina 
/  at  unit  Minutes  byte. 

/  Pointina  at  unit 
/  seconds  byte? 

307  /  Jump  to  EX  if  not 
/  pointina  at  unit 
/  seconds  byte. 

/  Move  sawed  byte  to  A. 

/  Compare  old  vs  new  byte 
2B3  /  Jump  to  EX5  if  time 
/  byte  has  not  chanaed. 

/  Get  sample  time  Mask,  E 

/  Mask  with  00001111 

/  Sets  lower  byte  to  1111 

/  Store  mask  back  in  E. 

307  /  Jump  to  EX 


/  Get  byte  saved  in  rea  D 
/  Compare  old  vs  new  byte 
254  /  Jump  to  EX4  if  the  unit 
/  Minutes  byte  has  not 
/  chanaed. 

I  Get  time  mask  from  E. 

/  Mask  with  00001111 
/  Reset  hiah  byte  =0000. 

/  Save  time  mask  in  rea  E 
307  /  Jump  to  EX 


/  Get  time  Mask  froM  E. 

/  Mask  with  00000101 
/  Resets  1  minute  saMPles 
/  Save  time  mask  in  rea  E 
307  /  Jump  to  EX 


1 

263 

304 

EX5.LAE 

/ 

Get  time  mask  from  E. 

1 

264 

044 

NDI 

000 

/ 

Mask  with  00000000 

000 

/ 

Reset  all  time  mask  bits 

1 

266 

340 

LEA 

/ 

Save  time  mask  in  rea  E. 

1 

267 

104 

JMP 

001 

307 

/ 

Jump  to  EX 

307 

001 

1 

272 

303 

EX1 .LAD 

/ 

Get  saved  byte  from  D. 

1 

273 

074 

CPI 

060 

/ 

Does  10s  of  minutes 

060 

/ 

byte=  0? 

1 

275 

150 

JTZ 

001 

305 

/ 

Jump  to  EX2  if  10s  of 

305 

/ 

minutes  byte  is  zero. 

001 

1 

300 

046 

LEI 

003 

/ 

Sets  1  minute-continuous 

003 

/ 

bit  in  time  mask. 

1 

302 

104 

JMP 

001 

307 

/ 

Jump  to  EX 

307 

001 

1 

305 

046 

EX2.LEI 

017 

/ 

Set  time  mask=00001 1 1 1 . 

017 

1 

307 

373 

EX.LMD 

/ 

Get  saved  byte  in  reg  D. 

1 

310 

304 

LAE 

/ 

Move  time  mask  to  res  A. 

1 

311 

125 

OUT+24 

/ 

Output  to  DATA  latch 

1 

312 

007 

RET 

/ 

end  of  TIME  routine 

1 

313 

000 
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Subroutine  TPTFHT. 

Description:  Prints  the  contents  of  the  TIME  array  directly  on 
the  TTY.  Also  contains  links  for  writing  contents 
to  magnetic  tape.  Part  of  an  earlier  routine  for 
recording  in  HEX  format,  but  Modified  and  retained 
for  systeM  testing. 

Entry  point:  01-320 

End  of  routine:  01-370 

CPU  Registers  used:  A,B,C,H,L 

Reserved  locations  used:  TIME  array  (froM  03-200  to  03-215) 

SHIFT  array  (from  03-360  to  03-366) 
Input/Qutput  ports  used!  QUT+20,  OUTPUT  to  TTY 
Subroutines  called:  PACKER.  CRLF .  SHIFT,  PRDY 
Alternate  entry  point:  TPT  at  01-332 


1 

320 

106 

TPTFMT.CAL 

002 

320 

/ 

Call  PACKER  routine  to 

320 

/ 

load  SHIFT  array  with 

002 

/ 

TIME  array  bytes. 

1 

323 

106 

CAL 

006 

100 

/ 

Call  CRLF  routine 

100 

/ 

(outputs  a  carriage 

006 

/ 

return  and  line  feed) 

1 

326 

056 

LHI 

003 

/ 

Set  paae=  003 

003 

i 

330 

026 

LCI 

014 

/ 

Set  C=014,  the  number 

014 

/ 

of  print  characters 

1 

332 

016 

TPT.LBI 

004 

/ 

Set  B=004,  the  number 

004 

/ 

of  bits  shifted  by  SHIFT 

1 

334 

106 

CAL 

002 

260 

/ 

Call  SHIFT  routine 

260 

/ 

(shifts  hex  digit  into 

002 

/ 

SHIFT  array  byte  360) 

1 

337 

066 

LLI 

360 

/ 

Set  menory  byte  pointer 

360 

/ 

to  360. 

1 

341 

307 

LAM 

1 

342 

044 

NDI 

017 

017 

1 

344 

064 

OR  I 

260 

260 

» 

1 

346 

370 

LMA 

1 

347 

106 

CAL 

005 

136 

005 

1 

352 

307 

LAM 

1 

353 

121 

QUT+20 

1 

354 

300 

LAA 

1 

355 

300 

LAA 

1 

356 

300 

LAA 

1 

357 

021 

DCC 

1 

360 

110 

JFZ 

001 

332 

001 

1 

363 

066 

LLI 

221 

221 

1 

365 

076 

LMI 

000 

000 

1 

367 

007 

RET 

1 

370 

000 

HLT 

Subroutine  TYMSYN. 

Dest 

:ripti 

on.  Controls  se 

tting 

and 

word 

sample 

masK 

for 

hour 

on  odd 

hours . 

Enti 

-y  poj 

inti  02-000 

End 

of  rt 

lutine!  02- 

027 

CPU 

Regi< 

iters  used! 

ArEfH 

,  L 

Reserved 

locations 

used ! 

TIME 

array 

Input/Qutput  ports 

used! 

None 

Subi 

'outines  called! 

LUXLOC,  SCANSEC 

Alt< 

»rnat« 

*  entry  pai 

nts!  None 

2 

0 

304 

TYMSYN 

,LAE 

2 

1 

074 

CPI 

000 

000 

2 

3 

150 

JTZ 

002 

026 

002 

2 

6 

056 

LHI 

003 

003 

2 

10 

066 

LLI 

207 

207 

2 

12 

307 

LAM 

2 

13 

074 

CPI 

063 

063 

2 

15 

100 

JFC 

002 

023 

002 

2 

20 

106 

CAL 

002 

030 

002 

2 

23 

106 

LUXLOC 

rCAL 

007 

/  Move  Memory  byte  to  A. 

/  MasK  with  00001111 
/  for  lower  byte. 

/  OR  with  10110000  to 
/  convert  HEX  to  ASCII. 

/  Store  ASCII  in  byte  360 
136  /  Call  PRDY  routine 

/  (tests  if  TTY  busy  and 
/  returns  only  when  idle) 
/  Get  ASCII  byte  at  360. 

/  Output  to  TTY  printer. 

/  Move  A  to  A  (=NOP) 

/  Idle 
/  Idle 

/  Decrement  C 
332  /  Jump  to  TPT  if  more 
/  bytes  must  be  printed. 

/  Set  TIME  TAG  flag  at 
/  ease  3,  byte  221=  0. 


/  end  of  TPTFMT  routine 


resetting  of  bit  4  in  the  time 
one  second  sampling  for  1/2 


(  03-207  to  03-215) 


/  Moue  E(=tii«e  masK)  to  A 
/  Test  for  all  bits  zero. 

026  /  Jump  to  OUT  if  all  bits 
/  in  sample  time  masK 
/  are  zero. 

/  Set  memory  byte  pointer 
/  to  page  03.  byte  207 
/  Contains  the  10s  of 
/  minutes  ASCII  disit. 

/  Get  10s  Minute  digit. 

/  Does  A=063?  Test  for 
/  minutes  =  or  >  30. 

023  /  Jump  to  LUXLOC  if  10s 
/  of  Minute  digit  is 
/  NOT  less  than  3. 

030  /  Call  SCANSEC  routine 
/  (tests  for  odd  or  euen 
/  hour) 

150  /  Call  LUXLOC  routine 


2  23 


150 

/ 

(resets  SEConds  counter 

007 

/ 

at  minute  time  change) 

2 

26 

007 

OUT, RET 

/ 

end  of  TYMSYN  routine 

2 

27 

000 

HLT 

i 


Subroutine  SCANSEC. 

Description.  Tests  for  even  or  odd  hour.  If  even,  do  not  set 
bit  4.  If  odd,  set  bit  4  for  one  second  sampling 
ouer  first  half  hour. 

Note.  LOG  30  =  OSS  for  SCANSEC  ON,  LOC  30  =  007  for  SCANSEC  OFF. 

Entry  point!  02-030 

End  of  routine!  02-047 

CPU  Registers  used!  A,E,H,L 

Reserved  locations  used!  TIME  array  (from  03-200  to  03-215) 
Input/Output  ports  used!  None 
Subroutine  called!  None 
Alternate  entry  points!  None 


2 

30 

066 

SCANSEC, LL I 

206 

/ 

Set  memory  byte  pointer 

206 

/ 

to  byte  206  on  page  3. 

2 

32 

307 

LAM 

/ 

Get  unit  hours  digit. 

2 

33 

044 

NDI 

001 

/ 

Mask  with  00000001 

001 

/ 

(tests  LSB  =  1?) 

2 

35 

074 

CPI 

000 

/ 

Does  A=0?  (  1=  odd  hour 

000 

/ 

0=  even  hour) 

2 

37 

150 

JTZ 

002 

046  / 

Jump  to  BACK  if  on  an 

046 

/ 

even  hour. 

002 

2 

42 

304 

LAE 

/ 

Move  E(=time  mask)  to  A 

2 

43 

064 

OR  I 

020 

/ 

OR  with  00010000  to  set 

020 

/ 

the  1  sec/30  min  bit. 

2 

45 

340 

LEA 

/ 

Store  mask  back  in  E 

2 

46 

007 

BACK, RET 

/ 

end  of  SCANSEC  routine 

2 

47 

000 

HLT 

Subroutine  STCK. 

Description.  Tests  for  status  of  the  magnetic  tape  recorder. 

If  recorder  is  not  READY,  or  at  EOT  (end-of-tape ) , 
issues  a  program/system  HALT.  If  the  recorder  is 
BUSY  writing  data  or  in  a  GAP  operation,  program 
waits  until  not  BUSY  or  not  GAP  before  returning 
to  calling  routine.  Also  includes  a  software  timing 
delay  loop  of  48  microseconds  for  the  tape  write 
operation. 

Entry  point!  02-070 
End  of  routine!  02-123 
CPU  Registers  used!  A 
Reserved  locations  used!  None 

Input/Output  ports  used!  INP+4,  RECORDER  and  A/D  STATUS 
Subroutines  called!  None 
Alternate  entry  points!  None 


2 

70 

105 

STCK, INP+4 

/ 

Input  recorder  status 

2 

71 

044 

NDI  001 

/ 

Mask  with  00000001 

001 

/ 

READY  status  =001 

2 

73 

110 

JFZ  002 

123  / 

Jump  to  STOP  if  the 

123 

/ 

recorder  is  not  READY. 
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— 

'  '•  -•  .  -,T 

002 

/  (STOPs  the  data  losser) 

2 

76 

105 

9D1 . INP+4 

!  Input  recorder  status 

*  ** 

2 

77 

044 

NDI 

006 

/  Mask  with  00000110 

006 

/  BUSY=002,  GAP=004 

in 

2 

101 

110 

JFZ 

002 

076  /  Jump  to  RD1  if  the 

076 

/  recorder  is  BUSY  or 

002 

/  in  a  GAP  operation. 

.  • 

r  V 

2 

104 

105 

INP+4 

/  Input  recorder  status 

V'- 

2 

105 

044 

NDI 

010 

/  Mask  with  00001000 

010 

/  EOT  status*  010 

l- 

2 

107 

110 

JFZ 

002 

123  /  Jump  to  STOP  if  the 

■ 

123 

/  recorder  is  at  the  End- 

002 

/  Qf-Tape  (EOT)  marker. 

2 

112 

006 

LAI 

014 

/  Set  A=014  (initial 

r 

014 

/  counter  value) 

2 

114 

300 

LAA 

/  Idle 

2 

115 

024 

OV,SUI 

001 

/  Subtract  1  from  A 

i 

001 

2 

117 

110 

JFZ 

002 

114  /  Jump  to  00  if  counter  >0 

■V> 

114 

/  (software  timins  loop 

002 

/  for  rcdr.  BUSY  sisnal) 

2 

122 

007 

RET 

/  end  of  STCK  routine 

to  , 

2 

123 

000 

HLT 

s 

Subroutine 

BLKS2. 

Description.  Fixes 

tape  block 

size 

to  2040  six-bit  characters. 

,*■  ^  . 

Assumes  location 

03-370  preloaded  with  10.  and  1 

r 

location  03-371 

preloaded  with  376  by  CLEAR  routine. 

% 

Entry  paint!  02-140 

End 

of  routine!  02- 

177 

CPU 

Resisters  used! 

A.B'H'L 

-  . 

Reserved  locations 

used!  Upper 

byte 

of  BLKSZ  counter  (  03-370) 

,v 

Lower 

byte 

of  BLKSZ  counter  (  03-371) 

Tneut/Output  ports 

used!  OUT+22 <  COMMAND  Latch  Resister 

Ml 

Subroutines  called! 

BLKCTR 

Alternate 

entry  pc* 

nts!  None 

2 

140 

056 

BLKSZ » LHI 

003 

/  Set  memory  byte  pointer 

003 

/  to  pase  3»  byte  371. 

<1 

142 

066 

LLI 

371 

/  Contains  low  byte  of  # 

371 

/  characters  counter. 

*-r 

2 

144 

317 

LBM 

/  Get  memory  byte  in  B 

2 

145 

Oil 

DCB 

/  Decrement  B 

2 

14G 

37 1 

LMB 

/  Move  B  back  to  Memory 

• 

2 

147 

110 

JFZ 

002 

177  /  Jump  to  BLK  if  b*/te 

177 

/  value  >  0. 

y'm 

002 

r 

-> 

152 

076 

LMI 

376 

/  Reset  low  byte  of  # 

376 

/  char,  counter  to  376) 

.>■ 

2 

154 

066 

LLI 

370 

/  Set  memory  byte  pointer 

370 

/  to  bvte  370  on  page  3. 

•  m 

2 

156 

317 

LBM 

/  Get  byte  value  in  B. 

K»  2 

157 

Oil 

DCB 

/  Decrement  B 

2 

160 

371 

LMB 

/  Move  B  back  to  Memory 

.  v 

2 

161 

110 

JFZ 

002 

177  /  Jump  to  BLK  if  high  byte 

177 

f  of  #  character  counter 

002 

'  is  not  zero. 

2 

164 

076 

LMI 

010 

/  Reset  high  byte  to  010 

1 

B-  14 

i 

010 

2 

166 

106 

CAL  006 

250  / 

Call  BLKCTR  routine 

250 

/ 

(totals  #  blocks  written 

006 

/ 

in  bvtes  03-372,03-373) 

2 

171 

006 

LAI  004 

/ 

Sets  write  a  GAP  bit 

004 

/ 

hish 

2 

173 

123 

OUT+22 

/ 

Output  to  COMMAND  latch 

2 

174 

006 

LAI  000 

/ 

Resets  write  a  GAP  bit 

000 

2 

176 

123 

OUT+22 

/ 

Output  to  COMMAND  latch 

2 

177 

007 

BLK.RET 

/ 

end  of  BLKSZ  routine 

Subroutine  MRCDR. 

Description.  Called  by  time  and  data  word  Format  routines  to 

write  a  S-bit  character  on  masnetic  tare.  Writes 
one  character  per  call.  Assumes  character  to  be 
written  is  in  SHIFT  array  byte  location  03-360. 
Also  samples  CONSOLE  SWITCHES  For  the  value  000. 
When  Found.  modiFies  routine  BLKCTR  to  call  ENDE 
routine  to  STOP  at  the  end  oF  the  current  block. 
Entry  point:  02-200 
End  of  routine:  02-244 
CPU  Resisters  used:  A»H,L 

Reserved  locations  used:  SHIFT  array  byte  at  03-360 
Input/Qutput  ports  used:  INP+3,  CONSOLE  SWITCHES 

QUT+22 ,  COMMAND  Latch  Resister 
OUT+24,  DATA  Latch  Resister 
Subroutines  called:  BLKSZ,  STCK 
Alternate  entry  points:  None 


2 

200 

056 

MRCDR, LHI 

003 

l 

Set  memory  byte  pointer 

003 

/ 

to  pase  3,  byte  360. 

2 

202 

066 

LLI 

360 

/ 

Byte  360  contains  B-bit 

360 

/ 

value  For  tape  write. 

2 

204 

307 

LAM 

f 

Move  memory  byte  to  A. 

2 

205 

125 

OUT+24 

f 

Output  to  DATA  latch 

2 

206 

106 

CAL 

002 

070 

/ 

Call  STCK  routine 

070 

/ 

(test  if  recorder  busy) 

002 

/ 

(returns  when  NOT  busy) 

2 

211 

006 

LAI 

002 

/ 

Set  recorder  WRITE  bit 

002 

/ 

in  command  word. 

2 

213 

123 

QUT+22 

/ 

Output  to  COMMAND  latch 

2 

214 

006 

LAI 

000 

/ 

Reset  recorder  WRITE  bit 

000 

/ 

in  command  word. 

2 

216 

123 

OUT+22 

/ 

Output  to  COMMAND  latch 

2 

217 

106 

CAL 

002 

140 

/ 

Call  BLKSZ  routine 

140 

/ 

(adds  1  to  the  character 

002 

/ 

count  for  current  block) 

2 

222 

107 

INP+3 

/ 

Input  CONSOLE  Switches 

2 

223 

074 

CPI 

000 

/ 

Are  all  bits  zero? 

000 

/ 

(STOP  at  end  of  block) 

2 

225 

110 

JFZ 

002 

241 

/ 

IF  not,  jump  to  EXIT. 

241 

/ 

(donot  STOP  at  the  end 

002 

/ 

of  this  block) 

2 

230 

056 

LHI 

006 

/ 

Set  memory  byte  pointer 

006 

/ 

to  pase  6,  byte  265. 

2 

232 

066 

LLI 

265 

/ 

Activates  the  auto  end 

265 

/ 

routine,  ENDE. 

B-  15 


2 

234 

076 

LMI 

342 

/ 

Store  value  342.  *** 

342 

/ 

(sets  auto  call  to  ENDE) 

n 

236 

060 

INL 

/ 

Increment  byte  pointer. 

2 

237 

07G 

LMI 

007 

/ 

Store  value  007  (-RET) 

007 

/ 

(inserts  RET  at  06-266) 

2 

241 

056 

EXIT.LHI 

003 

/ 

Set  memory  page  pointer 

003 

/ 

to  page  3. 

2 

243 

007 

RET 

/ 

end  of  MRCDR  routine 

2 

244 

000 

HLT 

Subroutine  SHIFT. 

Description.  Treats  SHIFT  array  locations  03-360  throush  03-366 
as  a  56  bit  left-shift  register.  Uses  the  register 
B  to  set  the  nuMber  of  bits  to  be  shifted  on  each 
call.  The  register  D  is  used  for  internal  control. 
The  shifted  result  is  left  in  SHIFT  location  03-360. 
Entry  paint!  02-260 
End  of  routine!  02-303 
CPU  Registers  used!  A,B,D,HiL 

Reserved  locations  used!  SHIFT  array  locations  03-360  to  03-366 
Input/Output  ports  used!  None 
Subroutines  called!  None 
Alternate  entry  points!  None 


2 

260 

056 

SHIFT, LHI 

003 

/ 

Set  memory  byte  pointer 

003 

/ 

to  page  3,  byte  366. 

2 

262 

036 

SH2.LDI 

007 

/ 

Set  D=  007  for  full 

007 

/ 

ripple  of  all  six  words 

2 

264 

066 

LLI 

366 

/ 

in  SHIFT  array  at  03-360 

366 

/ 

to  03-366.  Value  in  reg 

2 

266 

307 

SHI, LAM 

/ 

B  is  #  of  bits  shifted. 

2 

267 

022 

RAL 

/ 

Shift  A  one  bit  left 

2 

270 

370 

LMA 

/ 

Move  A  back  to  Memory 

2 

271 

061 

DCL 

/ 

Decrement  page  address 

2 

272 

031 

DCD 

/ 

Decrement  D,  #  words. 

2 

273 

110 

JFZ 

002 

266 

/ 

Jump  to  SHI  until  D 

266 

/ 

words  have  been  shifted 

002 

/ 

one  bit  left. 

2 

276 

Oil 

DCB 

/ 

Decrement  B,  #  bits 

2 

277 

110 

JFZ 

002 

262 

/ 

Jump  to  SH2  until  all 

262 

/ 

words  have  been  shifted 

002 

/ 

B  bits . 

2 

302 

007 

RET 

/ 

end  of  SHIFT  routine 

2 

303 

000 

HLT 

Subroutine  PACKER. 

Description.  Takes  the  ASCII  coded  time  word  in  the  TIME  array 
at  locations  03-200  throush  03-217.  masks  for  the 
low  order  four  bits  (HEX)  and  packs  them  two  HEX 
disits  per  byte  in  the  SHIFT  array  at  03-361 
through  03-366. 

Entry  point!  02-320 

End  of  routine!  02-377 

CPU  Registers  used!  A»B.C,H,L 

Reserved  locations  used!  TIME  array  at  03-200  to  03-217 

SHIFT  array  at  03-361  to  03-366 
Input/Output  ports  used!  None 


St. 
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ro  M 


Subroutines  called!  None 
Alternate  entry  points:  None 


2 

320 

066 

PACKER, LL I 

361 

/ 

Set  memory  byte  pointer 

361 

/ 

to  page  3,  byte  361 . 

2 

322 

056 

LHI 

003 

/ 

Converts  ASCII  digits 

003 

/ 

to  4-bit  HEX  digits. 

324 

076 

LMI 

377 

/ 

Set  byte  361=FF  (hex) 

377 

/ 

All  other  fills  1/2  byte 

2 

326 

060 

INL 

/ 

Increment  byte  pointer. 

2 

327 

076 

LMI 

360 

/ 

Set  byte  362*F0  (hex) 

360 

/ 

High  byte  f i 1 1 ( 1 1 1 10000) 

2 

331 

316 

LBL 

/ 

Save  SHIFT  array  ptr. 

2 

332 

066 

LLI 

202 

/ 

Set  byte  pointer*  202, 

202 

/ 

start  of  TIME  word  array 

2 

334 

306 

LAL 

/ 

Move  L  to  A 

2 

335 

326 

CY1 , LCL 

/ 

Save  TIME  array  ptr. 

2 

336 

044 

NDI 

001 

/ 

Mask  with  00000001 

001 

/ 

for  even  address  test. 

2 

340 

110 

JFZ 

002 

364 

/ 

Jump  to  CY2  if  on  an 

364 

/ 

odd  byte  address. 

002 

2 

343 

307 

LAM 

/ 

Get  time  word  digit. 

2 

344 

044 

NDI 

017 

/ 

Mask  with  00001111 

017 

/ 

to  get  low  4-bits. 

2 

346 

361 

LLB 

/ 

Get  SHIFT  array  Ptr. 

2 

347 

267 

ORM 

/ 

OR  high/low  half-bytes. 

2 

350 

370 

LMA 

/ 

Update  SHIFT  array  byte. 

2 

351 

060 

INL 

/ 

Increment  byte  pointer. 

2 

352 

316 

LBL 

/ 

Store  SHIFT  array  Ptr. 

2 

353 

362 

CY3.LLC 

/ 

Get  TIME  array  pointer. 

2 

354 

060 

INL 

/ 

Increment  TIME  pointer. 

2 

355 

306 

LAL 

/ 

Move  L  to  A 

356 

074 

CPI 

213 

/ 

Does  A=  213?  The  end  of 

213 

/ 

the  TIME  array  bytes. 

2 

360 

110 

JFZ 

002 

335 

/ 

Jump  to  CY1  if  not  at 

335 

/ 

the  end  of  TIME  array. 

002 

2 

363 

007 

RET 

/ 

end  of  PACKER  routine 

2 

364 

307 

LAM 

/ 

Move  odd  time  byte  to  A. 

2 

365 

002 

CYZ-RLC 

/ 

Shift  A  one  bit  left 

2 

366 

002 

RLC 

/ 

It 

2 

367 

002 

RLC 

/ 

M 

2 

370 

002 

RLC 

! 

II 

2 

371 

044 

NDI 

360 

/ 

Mask  A  with  11110000 

360 

/ 

Get  high  4-bit  byte. 

2 

373 

361 

LLB 

/ 

Get  SHIFT  array  Ptr. 

2 

374 

370 

LMA 

/ 

Store  byte  in  SHIFT  area 

2 

375 

104 

JMP 

002 

353 

/ 

Jump  to  CY3 

353 

002 


Subroutine  DPTFMT. 

Description.  Converts  data  word  HEX  digits  stored  in  SHIFT  array 
at  03-361  through  03-366  into  ASCII  characters  for 
printing  on  the  TTY. 

Entry  point!  03-000 


End  of  routine:  03-025 
CPU  Resisters  used:  A/BrCrH 

Reserved  locations  used!  SHIFT  array  at  03-360  to  03-366 

Input/Output  ports  used:  None 

Subroutines  called:  TPT  (in  TPTFMT  at  01-332) 

Alternate  entry  points!  DPT  at  03-007 


3 

0 

056 

DPTFMT iLHI 

003 

/  Set  memory  byte  pointer 

003 

/  to  page  3 

3 

106 

CAL 

006  100 

/  Call  CRLF  routine 

100 

/  (gives  a  carriage  return 

006 

/  and  line  feed  to  TTY) 

3 

5 

026 

LCI 

003 

/  Set  rea  C  for  the  #  of 

003 

/  half-byte  array  shifts 

3 

7 

016 

DPT  rLBI 

004 

/  Set  rea  B  for  the  #  of 

004 

/  bits  shifted  each  call 

3 

11 

106 

CAL 

002  260 

/  Call  SHIFT  routine  to 

260 

/  shift  array  B-bitSr 

002 

/  C-times 

3 

14 

021 

DCC 

/  Decrement  res  C 

3 

15 

110 

JFZ 

003  007 

/  Jump  to  DPT  until  rea 

007 

/  C  contains  zero 

003 

3 

20 

026 

LCI 

Oil 

/  Reset  rea  C  to  print 

Oil 

/  9  byte  data  word 

3 

22 

104 

JMP 

001  332 

/  Jump  to  link  TPT  in 

332 

/  TPTFMT  routine  (reuse 

001 

/  of  common  coding) 

3 

25 

000 

/  end  of  DPTFMT  routine. 

3 

26 

000 

/ 

Next  follows  the  array  HOUSE  containins  the 

3 

27 

000 

/ 

disital  sub-multiplexer  addresses  to  place 

3 

30 

000 

/ 

the  discrete  bits  associated  with  each  analog 

3 

31 

000 

/ 

channel  in  the  data 

word  that  is  generated  in 

3 

32 

000 

/ 

the  write 

-to-recorder  array>  SHIFT. 

3 

33 

000 

/ 

The  last 

two  digits 

of  the  array  byte  address 

3 

34 

000 

/ 

form  the 

analog  channel  address  in  octal. 

3 

35 

000 

/ 

The  array 

HOUSE  extends  from  page  3»  byte  100 

3 

36 

000 

/ 

to  page  3 

.  byte  140 

i.  The  contents  of  bits 

3 

37 

000 

/ 

6 r  5i  and  4  control  the  selection  of  one-of- 

3 

40 

000 

/ 

eight  possible  8-bit  discrete  bytes  as! 

3 

41 

000 

/ 

MSB 

LSB 

3 

42 

000 

/ 

OCTAL 

7  6 

5  4  3  2  1  0 

3 

43 

000 

/ 

000 

0  0 

0  0  0  0  0  0 

3 

44 

000 

/ 

020 

0  0 

0  1  0  0  0  0 

3 

45 

000 

/ 

040 

0  0 

1  0  0  0  0  0 

3 

46 

000 

/ 

060 

0  0 

1  1  0  0  0  0 

3 

47 

000 

/ 

100 

0  1 

0  0-0  0  0 

3 

50 

000 

/ 

120 

0  1 

0  1  0  0  0  0 

3 

51 

oon 

/ 

140 

0  1 

1  0  0  0  0  0 

3 

52 

000 

/ 

160 

0  1 

110  0  0  0 

3 

53 

000 

3 

54 

000 

3 

55 

000 

3 

56 

000 

3 

57 

000 

3 

60 

000 

3 

61 

000 

3 

62 

000 

3 

S3 

000 
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3  100 

3  101 

3  102 

3  103 

3  104 

3  105 

3  10G 

3  107 

3  110 

3  ill 
3  112 

3  113 

3  114 

3  115 

3  116 

3  117 

3  120 

3  121 

3  122 

3  123 

3  124 

3  123 

3  126 

3  127 

3  130 

3  131 

3  132 

3  133 

3  134 

3  135 

3  136 

3  137 

3  140 

3  141 

3  142 

3  143 

3  144 

3  145 

3  146 

3  147 

3  150 

3  151 

3  152 

3  153 

3  154 


/  Channel  Of 
/  Ceilometer 
/  Channel  If 
/  Channel  2f 
/  Channel  3f 
/  Channel  4f 
/  Channel  5f 
/  Channel  6f 
/  Channel  7f 
/  Channel  IOf 
/  Channel  11 f 
/  Channel  12f 
/  Channel  13f 
/  Channel  14f 
/  Channel  15f 
/  Channel  16f 
/  Channel  17f 
/  Rain  Gause 
/  Channel  20f 
/  Channel  21 f 
/  Channel  22f 
/  Channel  23f 
/  Channel  24f 
/  Channel  25f 
/  Channel  26f 
/  Channel  27 , 
/  Channel  30f 
/  Channel  31f 
/  Channel  32f 
/  Channel  33f 
/  Channel  34r 
/  Channel  35f 
/  Channel  36f 
/  Channel  37f 
/ - end  of 


sub-mux  address  G 
diaital  on  discrete  bytes 
sub-mux  address  0 
sub-mux  address  0 
sub-mux  address  0 
sub-mux  address  1 
sub-mux  address  0 
sub-mux  address  0 
sub-mux  address  0 
sub-mux  address  0 
sub-mux  address  0 
sub-mux  address  0 
sub-mux  address  0 
sub-mux  address  0 
sub-mux  address  0 
sub-mux  address  0 
sub-mux  address  5 
disital  on  discrete  bytes 
sub-mux  address  2 
sub-mux  address  2 
sub-mux  address  1 
sub-mux  address  0 
sub-mux  address  2 
sub-mux  address  2 
sub-mux  address  0 
sub-mux  address  0 
sub-mux  address  4 
sub-mux  address  3 
sub-mux  address  3 
sub-mux  address  3 
sub-mux  address  3 
sub-mux  address  0 
sub-mux  address  4 
sub-mux  address  4 
HOUSE  array  - 
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3 

155 

000 

3 

156 

000 

3 

157 

000 

3 

160 

000 

3 

161 

000 

3 

162 

000 

3 

163 

000 

3 

164 

000 

3 

165 

000 

3 

166 

000 

3 

167 

000 

3 

170 

000 

/ 

Next  follows  the  storase  array  TIME*  used  to 

3 

171 

000 

/ 

hold  the  ASCII  tine  word  transmitted  on  the 

3 

172 

000 

/ 

488  Interface  Buss  from  the  diaital  clock  to 

3 

173 

000 

/ 

the  data  losaer.  Each  byte  of  the  array 

3 

174 

000 

/ 

stores  one  ASCII  character.  The  order  in 

3 

175 

000 

/ 

which  the  time  word  is  stored  is  aiuen  aside 

3 

176 

000 

/ 

of  each  byte. 

3 

177 

000 

3 

200 

040 

/ 

The  ASCII  character  SP(sianals  start  of  word) 

3 

201 

040 

/ 

The  ASCII  character  SP  also 

3 

202 

XXX 

/ 

The  100s  day-of-year  diait. 

3 

203 

XXX 

/ 

The  10s  day-of-year  diait. 

3 

204 

XXX 

/ 

The  units  day-of-year  diait. 

3 

205 

XXX 

/ 

The  10s  of  hours  diait. 

3 

206 

XXX 

/ 

The  unit  hours  diait. 

3 

207 

XXX 

/ 

The  10s  of  minutes  diait. 

3 

210 

XXX 

/ 

The  unit  Minutes  diait. 

3 

211 

XXX 

/ 

The  10s  of  seconds  diait. 

3 

212 

XXX 

/ 

The  unit  seconds  di9it. 

3 

213 

015 

/ 

ASCII  carriase  return  character. 

3 

214 

012 

/ 

ASCII  line  feed  character. 

3 

215 

040 

/ 

-  end  of  TIME  array  - 

3 

216 

040 

3 

217 

060 

/ 

Special  resister  and  flaa  locations  follow: 

3 

220 

XXX 

/ 

Flaa  reaister  for  SCAN  analoa  channels  ON/OFF 

3 

221 

XXX 

/ 

TIME  TAG  flaa  reaister. 

3 

222 

XXX 

/ 

Analoa  channel  REQUEST  array  pointer. 

3 

223 

000 

3 

224 

000 

3 

225 

000 

3 

226 

000 

3 

227 

000 

/ 

ASCII  DATA  array  bytes  follow. 

3 

230 

017 

/ 

Data  word  sync  character/  * 

3 

231 

XXX 

/ 

Hiah  disit  of  anaaloa  channel  address*  BCD. 

3 

232 

XXX 

/ 

Low  diait  of  analoa  channel  address*  BCD. 

3 

233 

XXX 

/ 

Upper  four  discrete  channel  bits.  BCD. 

3 

234 

XXX 

/ 

Lower  Four  discrete  channel  bits.  BCD. 

3 

235 

XXX 

/ 

1000s  diait  of  A/D  conversion*  BCD. 

3 

236 

XXX 

/ 

100s  disit  of  A/D  conversion.  BCD. 

3 

237 

XXX 

/ 

10s  diait  of  A/D  conversion*  BCD. 

3 

Z40 

XXX 

/ 

Units  diait  of  A/D  conversion.  BCD. 

3 

241 

330 

/ 

-  end  of  DATA  array  - 

3 

242 

000 

3 

243 

000 

3 

244 

000 

3 

245 

000 

3 

246 

000 

3 

247 

000 
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3 

250 

000 

/ 

Next  follows  the  array  REQUEST  which  holds 

3 

251 

000 

/ 

the  sampling  request  masks  for  each  of  the 

3 

252 

000 

/ 

37  (octal)  analo3  charnels.  The  routine 

3 

253 

000 

/ 

CHTEST  compares  each  of  these  request  masks 

3 

254 

000 

/ 

with  the  current  sampling  time  mask  in  the 

3 

255 

000 

/ 

processor  register  E  by  ANDina  these  two 

3 

256 

000 

/ 

masks.  If  one  or  more  of  the  bits  in  the 

3 

257 

000 

/ 

two  masks  are  the  same,  then  the  analog 

3 

260 

000 

/ 

channel  addressed  by  the  last  two  octal 

3 

261 

000 

/ 

digits  of  the  byte  location  is  sampled  and 

3 

262 

000 

/ 

recorded  on  tape.  All  37  (octal)  masks  are 

3 

263 

000 

/ 

tested  in  sequence  each  time  the  MAIN  program 

3 

264 

000 

/ 

initiates  a  data  channel  scan. 

3 

265 

000 

/ 

The  eight  bits  of  each  REQUEST  seruice  mask 

3 

266 

000 

/ 

(coded  as!  MSB=7/6/5/4/3/2/i /0=LSB )  requests 

3 

267 

000 

/ 

one  or  more  of  the  sampling  rates: 

3 

270 

000 

/ 

Bit  7  is  not  used. 

3 

271 

000 

/ 

Bit  6  is  no  rate,  continue  to  next  request. 

3 

272 

000 

/ 

Bit  5  rate*  sample  euery  20  seconds  (adjustable) 

3 

273 

000 

/ 

Bit  4  rate*  euery  sec  for  1/2  hour-odd  hours 

3 

274 

000 

/ 

Bit  3  rate*  1  min  for  first  10  min  of  hour 

3 

275 

000 

/ 

Bit  2  rate*  1  sec  for  first  10  min  of  hour 

3 

276 

000 

/ 

Bit  1  rate*  each  minute  continuously 

3 

277 

000 

/ 

Bit  0  rate*  each  second  continuously 

/ 

Channel  use  updated  as  of  March*  1981 

Last  update*  October*  1980 

3 

300 

012 

/ 

Channel  0.  bits  3  and  1  rates. 

/ 

AEG*  Trailer-side  unit 

/ 

Ceilometer  on  discrete  bytes 

/ 

Tens  digit  =  100s  of  meters 

/ 

Unit  digit  =  10s  of  meters 

3 

301 

012 

/ 

Channel  1*  bits  3  and  1  rates. 

/ 

Laser  Scintillometer 

3 

302 

012 

/ 

Channel  2*  bits  3  and  1  rates. 

/ 

N/U 

3 

303 

040 

/ 

Channel  3*  bit  5  rate. 

/ 

AEG*  2  meter  height 

3 

304 

012 

/ 

Channel  4*  bits  3  and  !  rates. 

/ 

Eltro*  horizontal  path 

/ 

Eltro  calibration  periods  aiuen  by: 

/ 

Discrete  high  digit  =  Slant-path  Eltro 

/ 

Discrete  low  di9it  *  Horizontal  Eltro 

3 

305 

012 

/ 

Channel  5*  bits  3  and  1  rates. 

/ 

Night  Path  Function  Meter*  Filter 

3 

306 

012 

/ 

Channel  6*  bits  3  and  !  rates. 

/ 

Night  Path  Function  Meter,  Photopic 

3 

307 

012 

/ 

Channel  7,  bits  3  and  1  rates. 

/ 

Night  Path  Function  Meter*  Range 

3 

310 

100 

/ 

Channel  10,  bit  6  (continue  scanning  array) 

! 

N/U 

3 

311 

040 

1 

Channel  11,  bit  5  rate. 

/ 

AEG*  9  meter  height 

3 

312 

040 

/ 

Channel  12*  bit  5  rate. 

/ 

AEG*  16  meter  height 

3 

313 

040 

/ 

Channel  13*  b’t  5  rate. 

/ 

AEG,  48  meter  height,  analog 

3 

314 

012 

/ 

Channel  14*  bits  3  and  1  rates. 
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3  315 


3  316 


3  317 


3  320 


3  321 


3  322 


3  323 


3  324 


3  325 


3  326 


3  327 


3  330 


3  331 


3  332 


3  333 


3  334 


3  335 


3  336 


3  337 


3  340 

3  341 

3  342 

3  343 

3  344 

3  345 

3  346 

3  347 

3  350 

3  351 

3  352 

3  353 

3  354 


/  C02  Laserr  PAR  output 
/  Channel  15.  bits  3  and  1  rates. 

/  C02  Laser.  Power  Meter  output 

/  Channel  16.  bits  3  and  1  rates. 

/  C02  Laser.  An9le  output 
/  The  two  discrete  disits  represent  the 
/  10's  and  l's  counts  of  the  Diaital 
/  Rain  Gauae. 

/  Channel  17.  bits  3  and  1  rates. 

/  CG2  Laser.  Gain  output 
/  Low  order  discrete  diait  represents 
/  100's  count  of  the  Diaital  Rain  Gauae. 

/  Channel  20.  bits  3  and  1  rates. 

/  Turbulence  on  500M  Barnes 
/  Channel  21.  bits  3  and  1  rates. 

/  Barnes  500M  Transmissometer 
/  Channel  22.  bits  3  and  1  rates. 

/  Barnes  1500M  Transai ssoaeter 
/  Channel  23.  bits  3  and  1  rates. 

/  Analoa  Rain  Gauae 
/  Channel  24.  bits  3  and  1  rates. 

/  Luxmeter.  Horizontal  Channel 
/  Channel  25.  bit  5  rate. 

/  AEG.  BO  aeter  heiaht 
/  Channel  26.  bits  3  and  1  rates. 

/  Eltro.  slant  path 

/  Channel  27.  bit  6  (continue  scannina  array) 
/  N/U 

/  Channel  30.  bits  3  and  1  rates. 

/  A/D  Converter  Reference  Channel 
/  Channel  31.  bit  4  rate. 

/  Scannin3  Nephelometer.  Anale 
/  Channel  32.  bit  4  rate. 

/  Scannina  Nephelometer.  Scale  Shift 
/  Channel  33.  bit  4  rate. 

/  Scannina  Nephelometer .  Photo  Diode 
/  Channel  34.  bit  4  rate. 

/  Scannina  Nephelometer.  Monitor 
/  Channel  35.  bit  6  (continue  scannina  array) 
/  N/U 

/  Channel  36.  bits  3  and  1  rates. 

/  Eppler.  Direct  Channel 
/  Channel  37.  bits  3  and  1  rates. 

/  Laser  Scintillometer.  DC  Monitor 
/  The  Sun  Sensor  is  recorded  on  the  hiah- 
/  order  discrete  channel  diait. 

/  Trap  value,  sianals  software  end-of-array 
/  - end  of  REQUEST  array - 


/  Next  follows  the  array  SHIFT  used  by  the 
/  routine  SHIFT  to  position  and  format  the 
/  the  6-byte  contents  into  the  byte  360. 
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3  355  000 

3  356  000 

3  357  000 

3  360  XXX  /  Formatted  byte  left  here  for  print  or  write 

3  361  XXX  /  Byte  0 

3  362  XXX  /  Byte  1 

3  363  XXX  /  Byte  2 

3  364  XXX  /  Byte  3 

3  365  XXX  /  Byte  4 

3  366  XXX  /  Byte  5 

3  367  000  / - end  of  SHIFT  array - 

3  370  XXX  /  Upper  byte  of  BLKSZ  counter  for  BLKSZ  routine 

3  371  XXX  /  Lower  byte  of  BLKSZ  counter  for  BLKSZ  routine 

3  372  XXX  /  Upper  byte  of  number  of  blocks  written  counter 

3  373  XXX  /  Lower  byte  of  number  of  blocks  written  counter 

3  374  000 

3  375  000 

3  376  000  /  Character  pointer  register 

3  377  000  /  TYMSYN  counter 


Subroutine  DIGMUX. 

Description.  Loads  the  SHIFT  array  with  the  data  word  by  packing 
and  formating  the  analog  channel  address?  discrete 
bits?  and  the  A/D  converter  output  in  the  locations 
03-361  through  03-366. 

Entry  point:  04-000 

CPU  Registers  used:  A>BrD?H,L 

Reserved  locations  used:  SHIFT  array  from  03-360  to  03-366 
Input /Output  ports  used!  INP+4?  RECORDER/ A-D  Status 

INP+10?  INPUT  DIGITAL  MULTIPLEXER 
0UT+30?  DIGMUX  ADDRESS  Latch  Register 

Subroutines  called:  LOADER 
Alternate  entry  points:  None 


4 

0 

056 

DIGMUX ?LHI 

003 

/ 

Set  memory  byte  pointer 

003 

/ 

to  ease  3»  byte  222. 

4 

2 

105 

BUSY  t INP+4 

/ 

Input  A/D  status  bit. 

4 

3 

044 

NDI 

040 

/ 

Mask  with  00100000 

040 

/ 

to  test  STATUS. 

4 

5 

150 

JTZ 

004  002 

/ 

Jump  to  BUSY  if  A/D 

002 

/ 

in  conversion  process. 

004 

4 

10 

066 

LLI 

222 

/ 

Point  to  the  REQUEST 

222 

/ 

array  pointer  location. 

4 

12 

307 

LAM 

/ 

Get  REQUEST  value. 

4 

13 

044 

NDI 

177 

/ 

Mask  with  01111111  to 

177 

/ 

get  HOUSE  array  address 

4 

15 

310 

LBA 

/ 

Save  HOUSE  pointer  in  B 

4 

16 

066 

LLI 

362 

f 

Set  byte  pointer  to  1st 

362 

f 

byte  in  SHIFT  array. 

4 

20 

076 

LMI 

015 

f 

Load  with  start  of  data 

015 

/ 

word  character-  = 

4 

22 

060 

INL 

/ 

Increment  byte  pointer. 

4 

23 

006 

LAI 

000 

/ 

Set  digital  MUX  address 

000 

/ 

to  analog  channel  byte. 

4 

25 

131 

0UT+30 

/ 

Output  to  DIGITAL  MUX. 

4 

26 

111 

INP+10 

/ 

Input  DIGITAL  MUX  byte. 
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4 

27 

370 

LMA 

/ 

Store  in  SHIFT  byte. 

4 

30 

060 

INI- 

/ 

Point  to  next  byte. 

4 

31 

301 

LAB 

/ 

Get  HOUSE  array  value. 

4 

32 

316 

LBL 

/ 

Temp  save  L  in  B. 

4 

33 

360 

LLA 

/ 

Load  sub-MUX  address. 

4 

34 

307 

LAM 

/ 

Sets  up  for  discretes. 

4 

35 

064 

OR  I  002 

/ 

Sets  bit  1  in  digital 

002 

/ 

register  for  discretes. 

4 

37 

131 

OUT+30 

/ 

Output  to  DIGITAL  MUX. 

4 

40 

111 

INP+10 

/ 

Input  discretes  byte. 

4 

41 

361 

LLB 

/ 

Get  saved  byte  pointer. 

4 

42 

370 

LMA 

/ 

Load  discretes  to  SHIFT 

4 

43 

016 

LBI  003 

/ 

Set  counter  for  2  A/D 

003 

/ 

b  ytes . 

4 

45 

060 

DAT . INL 

/ 

Increment  byte  pointer. 

4 

46 

301 

LAB 

/ 

Get  saved  pointer. 

4 

47 

131 

0UT+30 

/ 

Output  to  DIGITAL  MUX 

4 

50 

111 

INP+10 

/ 

Input  next  SHIFT  byte. 

4 

51 

370 

LMA 

/ 

Store  bvte  in  SHIFT. 

4 

52 

010 

INB 

/ 

Increment  counter. 

4 

53 

301 

LAB 

/ 

Get  counter  value. 

4 

54 

074 

CPI  005 

/ 

Compare  with  5. 

005 

4 

56 

110 

JFZ  004 

045 

/ 

Jump  to  DAT  if  less 

045 

/ 

than  5. 

004 

4 

61 

106 

CAL  007 

000 

/ 

Call  LOADER  routine. 

000 

/ 

(loads  circular  buffer 

007 

/ 

with  last  256  bytes) 

4 

64 

007 

RET 

/ 

end  of  DIGMUX  routine. 

4 

65 

000 

HLT 

Sub 

routine 

TWTFHT. 

Description.  Formats  and  writes  the  time  word  stored  in  SHIFT 
arrar  to  the  masnetic  tape  in  HEX  codins. 

Entry  point!  04-100 

Fnd  of  routine!  04-133 

CPU  Registers  used:  A.S.C.H.L 

Reserved  locations  used:  SHIFT  array  From  03-360  to  03-366 
Input /Output  ports  used:  None 
Subroutines  called:  LDLINK.  SHIFT.  MRCDR 
Alternate  entry  Points:  TWT  at  04-107 


4 

100 

106 

TWTFMT » CAL 

007 

050 

/ 

Call  LDLINK  routine. 

050 

/ 

UinKs  to  PACKER  and 

007 

/ 

LOADER  routines) 

4 

103 

056 

LHI 

003 

/ 

Set  memory  byte  pointer 

003 

/ 

to  page  3. 

4 

105 

026 

LCI 

010 

/ 

Set  #  of  time  word  bytes 

010 

/ 

to  fix  #  calls  to  SHIFT. 

4 

107 

016 

TWT. LB  I 

006 

/ 

Set  #  of  bits  shifted  on 

006 

/ 

each  call  to  SHIFT. 

4 

111 

106 

CAL 

002 

260 

/ 

Call  SHIFT  routine. 

260 

/ 

(positions  6-bit  value 

002 

/ 

in  SHIFT  array  byte  0) 

4 

114 

066 

LLI 

360 

/ 

Point  to  byte  360. 

360 

/ 

on  page  3. 

4 

116 

307 

LAM 

/ 

Get  byte  to  be  written. 
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4 

117 

106 

CAL 

002 

200 

/ 

Call  MRCDR  routine. 

200 

/ 

(writes  6-bit  value  from 

002 

/ 

SHIFT  array  to  mag  tan?) 

4 

122 

021 

DCL 

/ 

Decrement  f  bytes  ctr. 

4 

123 

110 

JFZ 

004 

107 

/ 

Jump  TWT  until  al!  C 

107 

/ 

bytes  are  written. 

004 

4 

126 

066 

LLI 

221 

/ 

Reset  TIME  TAG  ON/OFF 

221 

/ 

flag  to  OFF. 

4 

130 

076 

LMI 

000 

/ 

Do  it . 

000 

4 

132 

007 

RET 

/ 

end  of  TWTFMT  routine. 

4 

133 

000 

HLT 

Subroutine  DWTFMT. 

Description.  Formats  and  writes  data  word  stored  in  SHIFT  arrav 
to  magnetic  tape  in  HEX  coding. 

Entry  point:  04-140 
End  of  routine!  04-162 
CPU  Registers  used:  B,C,H 

Reserved  locations  used:  SHIFT  array  locations  03-360  to  03-366 
Input/Output  ports  used:  None 

Subroutines  called:  SHIFT,  TWT  (in  TWTFMT  at  04-107) 

Alternate  entry  points:  DWT  at  04-144 


4 

140 

056 

DWTFMT, LH I 

003 

/ 

Set  memory  byte  pointer 

003 

/ 

to  page  3. 

4 

142 

026 

LCI 

002 

/ 

Set  #  of  uses  of  SHIFT 

002 

/ 

routine  for  data  word. 

4 

144 

016 

DWT, LB  I 

006 

/ 

Set  #  of  bits  shifted  on 

006 

/ 

each  use  of  SHIFT. 

4 

146 

106 

CAL 

002 

260 

/ 

Call  SHIFT  routine. 

260 

002 

4 

151 

021 

DCC 

/ 

Decrement  #  use  counter. 

4 

152 

110 

JFZ 

004 

144 

/ 

Jump  to  DWT  until  bytes 

144 

/ 

0  and  1  in  SHIFT  array 

004 

/ 

have  been  shipped. 

4 

155 

026 

LCI 

006 

/ 

Set  #  of  SHIFT  array 

006 

/ 

bytes  to  be  written. 

4 

157 

104 

JMP 

004 

107 

/ 

Jump  to  TWTFMT  routine. 

107 

/ 

(reuses  coding  to  write 

004 

/ 

data  word  to  tape) 

4 

162 

000 

/ 

end  of  DWTFMT  routine. 

4 

163 

000 

HLT 

Subroutine  CLEAR. 

Description.  Initializes  all  pointers,  counters,  and  reserved 
bytes.  Sets  all  output  latch  registers  to  zero. 
Entry  point:  04-200 
End  of  routine:  04-307 
CPU  Registers  used:  A,E,H,L 
Reserved  locations  used:  All 

Input/Qutput  ports  used:  OUT+20,  OUTPUT  to  TTY  Latch  Register 

0UT+Z2 ,  COMMAND  Latch  Register 
OUT+24 ,  DATA  OUTPUT  Latch  Register 
OUT+26.  ANALOG  ADDRESS  Latch  Register 


0UT+30.  DIGITAL  ADDRESS  Latch  Reaister 
OUT+32,  488  CONTROL  BUSS  Latch  Reaister 
OUT+34,  EXPERIMENT  COMMAND  Latch  Reaister 

OUT+36,  488  DATA  BUSS  Latch  Reaister 

Subroutines  called!  None 
Alternate  entry  points!  None 


4 

200 

058 

CLEAR, LHI 

004 

/ 

Set  memory  b/te  pointer 

004 

/ 

to  paae  4,  byte  210  to 

4 

202 

066 

LLI 

210 

/ 

allow  contents  to  be 

210 

/ 

chanaed  by  the  proaram. 

4 

204 

046 

LEI 

366 

/ 

Set  counter,  E,  for 

366 

/ 

count  up  sequence. 

4 

206 

006 

LOC.LAI 

000 

/ 

Output  00000000  to  all 

000 

/ 

output  reeisters. 

4 

210 

121 

OUT+ 

22 

/ 

CLEAR  output  reaister. 

4 

211 

307 

LAM 

/ 

Get  output  port  address 

4 

212 

004 

ADI 

002 

! 

Add  2  to  address  the 

002 

f 

output  port. 

4 

214 

370 

LMA 

/ 

Store  new  output  addres 

4 

2 15 

040 

INE 

/ 

Increment  counter,  E. 

4 

216 

110 

JFZ 

004 

206  / 

Jump  to  LOC  until  count 

206 

/ 

reaches  zero. 

004 

4 

221 

07G 

LMI 

121 

/ 

Restore  nriainal  code 

121 

/ 

value  to  byte  210. 

4 

223 

056 

LHI 

003 

/ 

Set  memory  byte  pointer 

003 

/ 

to  paae  3,  byte  377. 

4 

225 

066 

LLI 

377 

/ 

Set  TYMSYC  counter  to 

377 

/ 

zero . 

4 

227 

076 

LMI 

000 

/ 

Do  it. 

000 

4 

231 

066 

LLI 

222 

/ 

Set  channel  pointer 

222 

/ 

value  at  byte  222 

4 

233 

076 

LMI 

277 

/ 

to  REQUEST  array  start 

277 

/ 

-1  location. 

4 

235 

066 

LLI 

221 

/ 

Set  TIME  TAG  flaa  to 

221 

/ 

the  ON  value. 

4 

237 

076 

LMI 

077 

/ 

Do  it . 

077 

4 

241 

066 

LLI 

370 

/ 

Set  BLKSZ  counter,  hi3h 

370 

/ 

byte,  to  010. 

4 

24”5 

076 

LMI 

010 

/ 

Do  it . 

010 

4 

7*5 

066 

LLI 

371 

/ 

Set  BLKSZ  counter,  low 

371 

/ 

byte,  to  376. 

4 

247 

076 

LMI 

376 

/ 

Do  it . 

375 

4 

25 1 

056 

LHI 

002 

/ 

Chanae  code  at  paae  Z, 

002 

f 

byte  ZOO  to  056  and 

4 

253 

066 

LLI 

200 

/ 

restore  tape  recorder 

200 

/ 

driver  routine  to 

< 

25s5 

075 

LMI 

056 

/ 

operation. 

056 

4 

25~> 

05G 

LHI 

003 

/ 

Clear  BLKCTR.  hiah 

003 

t 

brte  to  zero. 

4 

?S! 

06E 

!  LI 

372 

372 

4 

263 

076 

LMI 

000 

r 

Do  it. 

000 

4 

2S5 

060 

INL 

/ 

Increment  byte  pointer. 

4 

266 

076 

LMI 

000 

/ 

Clear  BLKCTR  low 

000 

/ 

byte  to  zero. 

4 

270 

056 

LHI 

006 

/ 

Restores  call  in  BLKCTR 

006 

/ 

to  STCK  which  is  changed 

4 

272 

066 

LLI 

265 

/ 

by  calls  to  ENDF. 

265 

4 

274 

076 

LMI 

070 

/ 

Do  it. 

070 

4 

276 

060 

INL 

/ 

Increment  byte  pointer. 

4 

277 

076 

LMI 

002 

/ 

Complete  restoration 

002 

/ 

of  machine  code. 

4 

301 

056 

LHI 

005 

/ 

Restore  code  in  MDUMP 

005 

/ 

to  call  for  CRLF. 

4 

303 

066 

LLI 

343 

/ 

Set  memory  byte  pointer 

343 

/ 

to  page  5.  byte  343. 

4 

305 

076 

LMI 

106 

/ 

Restore  CAL(=106)  code. 

106 

4 

307 

007 

RET 

/ 

end  of  CLEAR  routine. 

Program  VERIFY. 

Description.  Starting  with  the  lowest  memory  byte,  the  stored 

value  is  compared  with  the  value  on  the  paper  tare 
which  is  assumed  to  be  correct.  IF  the  two  values 
agree-  the  next  byte  is  tested  against  the  tape 
value.  If  the  values  disagree,  the  tape  value  is 
loaded  into  the  memory  byte.  All  "corrections"  are 
printed  out  on  the  TTY  to  aid  in  locating  possible 
defective  memory  bytes. 

Entry  point:  04-310 
End  of  routine!  04-371 

CPU  Registers  used:  A.D.E.H.L 
Reserved  locations  used!  None 
Input/Output  ports  used:  None 
Subroutines  called.'  RDRCNTL .  RDROFF.  ERRPRNT 


Alternate 

entry 

points!  None 

4 

310 

106 

VERIFY, CAL 

006 

171  / 

Call  RDROFF  routine. 

171 

/ 

(turns  paper  tape  reader 

006 

/ 

OFF  on  TTY) 

4 

313 

056 

LHI 

005 

/ 

Set  memory  byte  pointer 

005 

/ 

to  page  5-  byte  343. 

4 

315 

066 

LLI 

343 

/ 

Defeats  call  to  CRLF  in 

343 

/ 

MDUMP  routine  to  allow 

4 

317 

076 

LMI 

007 

/ 

reuse  of  coding. 

007 

4 

321 

056 

LHI 

000 

/ 

Set  memory  byte  pointer 

000 

/ 

to  page  0-  byte  000. 

4 

323 

066 

LLI 

000 

/ 

Starts  loading  and 

000 

/ 

comparison  at  lowest 

4 

325 

106 

JMP1 , CAL 

006 

161  / 

Call  RDRCNTL  routine. 

161 

/ 

(turns  TTY  paper  tape 

006 

/ 

reader  ON  for  one  byte) 

4 

330 

074 

CPI 

000 

/ 

Is  byte=  000°  If  so- 

000 

/ 

still  on  "leader". 

4 

332 

150 

JTZ 

004 

325  / 

Jump  to  JMP1  until  first 

325 

B-  27 

/ 

non-zero  byte  is  read. 

4 

4 

335 

33S 

004 

277 

150 

JMP4.CPM 

JTZ 

004 

346 

/ 

/ 

Compare  memory  byte  with 
tape  byte.  If  not  the 

346 

/ 

same,  replace  with  tape 

004 

/ 

byte  value. 

4 

34! 

?  06 

CAL 

005 

050 

/ 

Call  ERRPRNT  routine. 

050 

/ 

(prints  memory  location, 

005 

/ 

old  value  and  new  value) 

4 

344 

353 

LHD 

/ 

Restore  pointer  H  from  D 

4 

345 

364 

LLE 

/ 

Restore  pointer  L  from  E 

4 

346 

<■•60 

JMP2 , INL 

/ 

Increment  byte  pointer. 

4 

347 

!  10 

JFZ 

004 

362 

/ 

Jump  to  JMP3  until  L-0. 

362 

004 

4 

352 

050 

INH 

/ 

Go  to  next  page. 

4 

353 

305 

LAH 

/ 

If  not  on  last  page  of 

4 

354 

074 

CPI 

010 

( 

memory  continue.  If  pase 

010 

/ 

is  greater  than  7,  STOP. 

4 

35S 

110 

JFZ 

004 

362 

/ 

Jump  to  JMP3  until  page 

362 

/ 

has  been  compared. 

004 

A 

361 

000 

HLT 

/ 

STOP  after  page  7. 

4 

3S2 

106 

JNP3,CAL 

006 

16! 

/ 

Call  RDRCNTL  routine. 

161 

/ 

(reads  a  single  byte 

006 

/ 

from  the  tare) 

4 

365 

104 

JMP 

004 

335 

/ 

Jump  to  JMP4  to  continue 

335 

/ 

memory  byte  vs  tape 

004 

/ 

byte  comparison. 

4 

370 

000 

HLT 

/ 

end  of  VERIFY  routine. 

Subroutine  BINLD. 

Description.  Leads  binary  tapes  punched  in  Memory  image  format 
b v  the  program  PDUMP.  First  non-blank  byte  on  the 
paper  tape  is  loaded  to  memory  pase  00,  byte  000, 
and  byte  loading  into  higher  memory  bytes  continues 
until  end  of  tape. 

Entry  point!  05-000 

End  of  routine!  05-035 

CPU  Registers  used!  A,H,L 

Reserved  locations  used!  None 

Input/Output  ports  used!  INP+O,  INPUT  from  TTY 

GUTPUT+22 ,  COMMAND  Latch  Register 

Suoroutines  called!  RDY 
Alternate  entry  point!  None 


5 

0 

056 

BINLD, LHI 

000 

/ 

Set  memory  byte  pointer 

000 

/ 

to  page  0,  byte  000. 

5 

? 

066 

LLI 

000 

/ 

Loads  lowest  memory 

000 

/ 

byte  from  paper  tape. 

5 

4 

006 

LAI 

001 

/ 

Turn  on  paper  tape 

001 

/ 

reader  command. 

5 

6 

123 

OUT+22 

/ 

Output  to  COMMAND  reg. 

c 

7 

106 

BL! ,CAL 

005 

036  / 

Cal  1  RDY  rout ine 

036 

/ 

(tests  for  TTY  status. 

005 

/ 

returns  when  READY) 

5 

12 

101 

INP+O 

/ 

Input  TTY  8-bit  byte. 

5 

13 

074 

CPI 

000 

/ 

Test  for  1st  non-zero 

000 

/ 

b  yte. 

5 

15 

150 

JT2 

005 

007 

/ 

Jump  to  BL1  if  byte  is 

007 

/ 

zero,  still  on  paper 

005 

/ 

tape  M  leader" . 

5 

20 

370 

BL3.LMA 

/ 

Store  byte  m  memory. 

5 

21 

OS  0 

INL 

/ 

Increment  byte  pointer. 

a 

22 

110 

JFZ 

005 

026 

/ 

Jump  to  BL2  if  not  at 

02S 

/ 

the  end  of  the  current 

005 

/ 

page. 

5 

25 

050 

INH 

/ 

Increment  page  pointer. 

5 

26 

106 

8L2,CAL 

005 

036 

/ 

Call  RDY  routine. 

036 

/ 

<tests  status  of  TTY) 

005 

5 

31 

101 

INP+O 

/ 

Input  TTY  b*/te. 

5 

32 

104 

JMP 

005 

020 

/ 

Jump  to  BL3  and  continu 

020 

/ 

sequential  loading  of 

005 

! 

memory  from  paper  tape. 

5 

35 

000 

HLT 

/ 

end  of  BINLD  routine. 

Subroutine 

RDY 

Description 

i .  Tests  TTY  for  data 

available 

from  TTY. 

Entry  point 

!  05-036 

End  of  routine!  05-047 

CPU  Registers  used!  A 

Reserved  locations  used! 

None 

Input/Output  ports  used! 

INP+2, 

RECORDER/A-D/TTY  Status 

Subroutines 

called!  None 

Alternate  entry  points! 

None 

5  36 

103  RDY , INP+2 

/ 

Input  TTY  STATUS  res. 

5  37 

044 

NDI 

040  / 

Mask  with  00100000  to 

040 

/ 

test  for  Data  Available 

5  41 

022 

RAL 

/ 

Rotate  left  one  bit. 

5  42 

022 

RAL 

/ 

Rotate  left  one  bit 

5  43 

022 

RAL 

/ 

Rotate  left  one  bit 

5  44 

100 

JFC 

005  036  / 

Jump  to  RDY  until  data 

036 

/ 

is  available,  i.e.,  bit 

005 

/ 

in  carry  is  one. 

5  47 

007 

RET 

/ 

end  of  RDY  routine. 

Subroutine 

ERRPRNT 

Description.  A  routine  to  Format  and  print  paae,  byte  number, 
contents  of  memory  byte  in  error,  and  corrected 
contents . 

Entry  point!  05-050 
End  of  routine!  05-077 
CPU  Reaisters  used!  A,D,E,H,L 
Reserved  locations  used!  None 
Input/Output  ports  used!  None 

Subroutines  called!  PUSH  A,  POP  A,  NDP ,  PRDY ,  CRLF ,  MEND I G 
Alternate  entry  points!  None 


5 

50 

335 

ERRPRNT, LDH 

/ 

Store  pise  pointer  in  D. 

5 

51 

346 

LEI. 

/ 

Store  byte  pointer  in  E. 

5 

52 

106 

CAL  006 

360  / 

Cal  1  PUSH  A  routine. 

360 

/ 

Temporary  stack  to  store 

8-  29 


5  55 


OOG 
106 
302 

005 

5  60  106 

366 
006 

5  63  353 

5  64  364 

5  65  370 

5  66  106 

325 
005 

5  71  106 

100 
006 

5  74  106 

136 
005 

5  77  007 


CAL  005 


/  resister  A  value. 

302  !  Call  MDP  entry  in  MDUMP 
/  routine. 


CAL  006 


366  /  Call  POP  A  routine  to 
/  restore  resister  A. 


LHD 

LLE 

LMA 

CAL 


CAL 


CAL 


RET 


005 

006 

005 


/  Get  bad  address  location 
/  saued  in  resisters  D»E. 

/  Replace  bad  Memory  byte. 
325  /  Call  MEMDIG  link  in 

/  MDUMP  routine  for  space 
/  and  print  Memory  byte. 
100  /  Call  CRLF  routine. 

/  (sets  a  carriase  return 
/  and  line  feed  on  TTY) 

136  /  Call  PRDY  routine. 

/  (tests  for  printer 
/  ready  status) 

/  end  of  ERRPRNT  routine. 


Prosram  PDUMP 

Description.  Punches  binary  tape  in  Memory  imase  format  startins 
at  00-000  throush  07-377.  A  blank  tape  "leader" 
and  "trailer"  section  is  also  punched.  Tapes 
punched  with  this  prosram  can  be  reloaded  usins  the 
prosram  BINLD. 

Entry  point!  05-100 

End  of  routine!  05-1 35 

CPU  Resistera  used!  A.H.L 

Reserved  locations  used!  None 

Input/Output  ports  used!  0UT+20.  OUTPUT  to  TTY 

Subroutines  called!  PRDY.  LDTR 

Alternate  entry  points!  None 


5 

too 

056 

PDUMP. LHI 

000 

/ 

Set  memory  byte  pointer 

000 

/ 

to  pase  Of  byte  000. 

5 

102 

066 

LLI 

000 

000 

5 

104 

106 

PDl.CAL 

005 

136 

/ 

Call  PRDY  routine. 

136 

/ 

(tests  for  printer 

005 

/ 

ready  status) 

5 

107 

106 

CAL 

005 

147 

t 

Call  LDTR  routine. 

147 

/ 

(punches  64  blanks  for 

005 

/ 

paper  tape  "leader") 

5 

112 

106 

PD2.CAL 

005 

136 

/ 

Call  PRDY  routine. 

136 

/ 

(tests  for  paper  tape 

005 

/ 

punch  status) 

5 

115 

307 

LAM 

/ 

Load  meMory  byte  to  A. 

5 

1 16 

121 

0UT+20 

/ 

Output  to  TTY  punch. 

5 

117 

060 

INL 

/ 

Increment  byte  pointer. 

5 

120 

110 

JFZ 

005 

112 

/ 

Jump  to  PD2  if  not  at 

112 

/ 

the  end  of  the  current 

005 

/ 

pase . 

5 

123 

050 

INH 

/ 

Increment  pase  pointer. 

5 

124 

305 

LAH 

/ 

Get  pase  pointer  value. 

5 

125 

074 

CP  r 

010 

/ 

Test  for  last  pase. 

5 

127 

110 

JFZ 

005 

112 

/ 

Jump  to  PD2  until  last 

112 

/ 

page  is  punched. 

005 

5 

132 

106 

CAL 

005 

147 

/ 

Call  LDTR  routine. 

147 

/ 

(punches  64  blanks  for 

005 

/ 

tape  "trailer") 

5 

135 

000 

HLT 

/ 

end  of  PDUMP  routine. 

Subroutine  PRDY 

Description.  Tests  if  TTY  is  ready  for  printins  and  punching. 

Entry  point!  05-13S 

End  of  routine!  05-146 

CPU  Registers  used!  A 

Reserved  locations  used!  None 

Input/Output  ports  used!  INP+2,  RECORDER/A-D/TTY  Status 
Subroutines  called!  None 
Alternate  entry  points!  None 


5 

136 

103 

PRDY » INP+2 

/ 

Input  TTY  status. 

5 

137 

044 

NDI  002 

/ 

Mask  with  00000010  to 

002 

/ 

test  for  punch  busy. 

5 

141 

032 

RAR 

/ 

Rotate  right  one  bit. 

5 

142 

032 

RAR 

/ 

Rotate  right  one  bit. 

5 

143 

100 

JFC  005 

136  / 

Jump  to  PRDY  until 

136 

/ 

paper  tape  punch  is 

005 

/ 

idle. 

5 

146 

007 

RET 

/ 

end  of  PRDY  routine. 

Subroutine  LDTR 

Description.  Punches  64  blank  bytes  on  paper  tape  for  use  as  a 
"leader*  or  a  "trailer*  section. 

Entry  paint!  05-147 

End  of  routine!  05-163 

CPU  Registers  used!  A. 8 

Reserved  locations  used!  None 

Input/Qutput  ports  used!  0UT+20,  OUTPUT  to  TTY 

Subroutines  called!  PRDY 

Alternate  entry  points!  None 


5 

147 

016 

LDTR, LB I 

077 

/ 

Set  #  of  blanks  to 

077 

/ 

be  punched. 

5 

151 

106 

LDl.CAL 

005 

136 

/ 

Call  PRDY  routine. 

136 

/ 

(tests  for  paper  tape 

005 

/ 

punch  ready) 

5 

154 

006 

LAI 

000 

/ 

Loads  blank  byte  value. 

000 

5 

156 

121 

OUT 

/ 

Punch  it. 

5 

157 

Oil 

DCB 

/ 

Decrement  counter. 

5 

160 

110 

JFZ 

005 

151 

/ 

Jump  to  LD1  until  all  B 

151 

/ 

bytes  have  been  punched. 

005 

5 

163 

007 

RET 

/ 

end  of  LDTR  routine. 

5 

164 

000 

HLT 

Subroutine  .  ,  u'!N 

Description,  r’acks  three  consecutive  ASCII  digits  entered  from 


B-  31 


the  Keyboard  into  three  octal  diaits.  The  octal 
bvte  is  left  in  reaister  B  on  return. 

Entry  point:  05-200 

End  of  routine:  05-251 

CPU  Reaisters  used:  A,B,C 

Reserved  locations  used:  None 

Input /Output  ports  used:  INP+O,  INPUT  from  TTY 

QUT+20 ,  OUTPUT  to  TTY 

Subroutines  called:  RDY 

Alternate  entry  points:  PROCS  (at  05-205) 


5 

200 

104 

PROGIN, JMP 

005 

252 

/ 

Jump  to  ASTK  routine. 

252 

/ 

(character  test 

005 

/ 

routine,  p/o  test  proa.) 

5 

203 

101 

INP+O 

/ 

Input  byte  fro«  TTY. 

s 

204 

121 

QUT+20 

/ 

Output  byte  to  TTY. 

5 

205 

02S 

PROCS >LC! 

006 

/ 

Set  shift  counter. 

006 

207 

002 

RC1 ,RLC 

/ 

Shift  input  byte  left. 

5 

210 

021 

DCC 

/ 

Decrement  shift  counter. 

5 

211 

110 

JFZ 

005 

207 

/ 

Jump  to  RC1  until  C 

207 

/ 

left  shifts  are  carried 

005 

/ 

out . 

5 

214 

044 

ND1 

300 

/ 

Mask  with  1 1 000000  to 

300 

/ 

set  2  hishest  bits. 

5 

216 

310 

LBA 

/ 

Store  in  reaister  B. 

5 

217 

106 

CAL 

005 

036 

/ 

Call  RDY  routine. 

036 

/ 

(tests  for  TTY  status) 

005 

5 

222 

101 

INP+O 

/ 

Input  TTY  byte. 

5 

223 

121 

QUT+20 

/ 

Output  TTY  byte  (echo) 

5 

224 

026 

LCI 

003 

/ 

Set  shift  counter. 

003 

5 

226 

002 

RC2 ,RLC 

/ 

Rotate  left  one  bit. 

5 

227 

021 

DCC 

/ 

Decrement  shift  counter. 

5 

230 

no 

JFZ 

005 

226 

/ 

Jump  to  RC2  until  C 

226 

! 

shiFts  have  been  carried 

005 

/ 

out . 

5 

233 

044 

NDI 

070 

/ 

Mask  with  00111000  to 

070 

/ 

middle  3  bits. 

5 

235 

2S1 

ORB 

/ 

OR  with  value  in  B. 

5 

236 

310 

LBA 

/ 

Store  in  reaister  B. 

5 

237 

106 

CAL 

005 

036 

/ 

Call  RDY  routine. 

036 

/ 

(tests  for  TTY  ready) 

005 

5 

242 

101 

INP+O 

/ 

Input  TTY  byte. 

5 

243 

121 

QUT+20 

/ 

Output  TTY  byte  (echo) 

5 

244 

044 

NDI 

007 

/ 

Mask  with  00000111  to 

007 

/ 

set  lowest  3  bits. 

5 

246 

261 

ORB 

/ 

OR  with  value  in  B. 

5 

247 

007 

RET 

/ 

end  of  PROGIN  routine. 

5 

250 

000 

HLT 

5 

25! 

000 

HLT 

Subroutine  ASTK. 

Description.  Tests  for  input  character  *  (=107) 
Entr-'  point:  05-252 
End  of  routine:  05-270 


CPU  Registers  used:  A 

Reserved  locations  used:  None 

Input/Output  ports  used:  INP+O.  INPUT  from  TTY 

0UT+20,  OUTPUT  to  TTY 

Subroutine  called:  RDY  0UT+20.  OUTPUT  to  TTY 

Alternate  entry  points:  None  20.  OUTPUT  to  TTY 


5 

252 

106 

ASTK , CAL 

005 

036 

/ 

Call  RDY  routine. 

036 

/ 

(tests  for  TTY  status) 

005 

5 

255 

101 

INP+O 

/ 

Input  TTY  bvte. 

5 

25G 

121 

0UT+20 

/ 

Output  TTY  b/te. 

5 

257 

074 

CPI 

107 

/ 

Is  byte  value  = 107(G) 7 

107 

5 

261 

150 

JTZ 

005 

267 

/ 

Jump  to  LDAM  if  byte  r 

267 

005 

5 

264 

104 

JMP 

005 

205 

/ 

Jump  to  PROCS  link  in 

205 

/ 

PROGIN  routine. 

005 

5 

267 

307 

LDAM.LAM 

/ 

Load  memory  value  to  A 

5 

270 

007 

RET 

/ 

end  of  ASTK  routine. 

5 

271 

000 

HLT 

Program  MDUMP. 

Description.  Formats  and  prints  the  contents  of  the  currently 

addressed  memory  paae  starting  at  the  current  value 
of  the  memory  byte  pointer  and  continues  to  byte  377. 
Each  octal  byte  is  converted  to  three  ASCII  diaits 
for  printing  through  calls  to  PNTBIN. 

Entry  point:  05-300 
End  of  routine:  05-355 

CPU  Registers  used!  A.D.E.H.L 
Reserved  locations  used:  None 
Input/Output  ports  used:  None 
Subroutines  called:  PNTBINr  SPACE.  CRLF 
Alternate  entry  points:  MDP  (at  05-302) 

MEMDIG  (at  05-325) 


5 

300 

335 

MDUMP. LDH 

/ 

Save  re3  H  in  reg  D. 

5 

301 

346 

LEL 

/ 

Save  res  L  in  reg  E. 

5 

302 

056 

MDP.LHI 

003 

/ 

Set  memory  byte  pointer 

003 

/ 

to  page  3.  b yte  361 . 

5 

304 

066 

LLI 

361 

361 

5 

306 

373 

LMD 

/ 

Store  D  in  Memory. 

5 

307 

106 

CAL 

006 

000 

/ 

Call  PNTBIN  routine. 

000 

/ 

(prints  octal  equivalent 

006 

/ 

of  SHIFT  array  byte  360) 

5 

312 

106 

CAL 

005 

356 

/ 

Call  SPACE  routine. 

356 

/ 

(outputs  2  spaces  on 

005 

1 

TTY  line) 

5 

315 

056 

LHI 

003 

/ 

Set  memory  b-te  pointer 

003 

/ 

to  page  3.  b  yte  36! . 

5 

317 

066 

LLI 

361 

361 

5 

321 

374 

LME 

/ 

Store  res  E  at  res  M. 

5 

322 

106 

CAL 

006 

000 

/ 

Call  PNTBIN  routine. 

B-  33 


000 

!  fprints  contents  of  pase 

oos 

/  3  >  byte  360  in  octal) 

5 

325 

10S 

MEMO IG, CAL 

005 

356 

/  Call  SPACE  routine. 

356 

/  (prints  2  spaces  on  the 

005 

/  current  line) 

5 

330 

353 

LHD 

/  Set  memory  byte  pointer 

5 

331 

364 

LLE 

/  to  pase  D.  byte  E. 

5 

332 

307 

LAM 

/  Store  byte  value  m  A. 

5 

333 

056 

LHI 

003 

/  Set  memory  byte  pointer 

003 

/  to  pase  3.  b  yte  361 . 

5 

335 

066 

LLI 

361 

361 

5 

337 

370 

LMA 

/  Store  res  A  at  res  M. 

5 

340 

106 

CAL 

006 

000 

/  Call  PNTBIN  routine. 

000 

/  (prints  memory  byte 

006 

/  value  in  octal) 

5 

343 

106 

CAL 

006 

100 

/  Cal  1  CRLF  routine . . 

100 

/  (senerates  a  carriase 

<106 

/  return  and  a  line  feed) 

5 

34G 

040 

INE 

/  Increment  re9  E. 

s 

147 

304 

LAE 

/  Transfer  E  to  A. 

5 

350 

074 

CPI 

000 

/  Is  "alue-O7 

000 

s 

352 

no 

JF2 

005 

302 

/  Jump  to  MDP  until  end 

302 

/  of  current  ease. 

005 

S 

355 

000 

HLT 

/  end  of  MDUMP  routine. 

Subroutine  SPACE. 

Description.  Outputs  two  space  commands  to  to  TTY. 

Entrv  point:  05-356 

End  of  routine:  ‘15-372 

CPU  Resisters  used:  A 

Reserved  locations  used!  None 

Input/O'jtput  ports  used!  0UT+2O,  OUTPUT  to  TTY 

Subroutines  called:  PRDY 

Alternate  entry  points:  None 


5 

356 

106 

SPACE, CAL 

005 

136 

/ 

Call  PRDY  routine. 

136 

/ 

(tests  TTY  status) 

005 

361 

006 

LAI 

040 

/ 

Load  ASCII  value  for 

040 

/ 

space  one  character. 

«; 

363 

121 

OUT+ZO 

/ 

Do  it. 

c 

364 

1 06 

CAL 

005 

136 

/ 

Call  PRDY  routine. 

136 

005 

S 

J67 

006 

‘.A  I 

040 

/ 

Load  ASCII  value  for 

040 

/ 

space  one  character. 

c: 

371 

12! 

0UT+20 

/ 

Print  it. 

5 

37? 

007 

RET 

/ 

end  of  SPACE  routine 

5 

373 

COO 

HLT 

Subroutine  PNTSIN. 

Description.  Prints  the  ASCII  equivalent  of  the  octal  contents 
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of  SHIFT  array  location  03-3S0. 

Entry  point!  0G-000 

End  of  routine!  06-037 

CPU  Registers  used!  A.B,C,D,H,L 

Reserved  locations  used!  SHIFT  array  byte  at  03-360 
Input/Qutput  ports  used!  None 
Subroutines  called!  FORMAT 
Alternate  entry  points!  None 


0 

016 

PNTBIN, LBI 

002 

002 

2 

056 

LHI 

003 

003 

4 

066 

LLI 

367 

367 

6 

373 

LMD 

7 

026 

LCI 

003 

003 

11 

106 

CAL 

006 

040 

006 

14 

016 

LBI 

003 

003 

16 

026 

LCI 

007 

007 

20 

106 

CAL 

006 

040 

006 

23 

016 

LBI 

003 

003 

25 

026 

LCI 

007 

007 

27 

106 

CAL 

006 

040 

006 

32 

056 

LHI 

003 

003 

34 

066 

LLI 

367 

367 

36 

337 

LDM 

37 

007 

RET 

/  Set  #  of  bits  shiftpd 
/  by  SHIFT  routine. 

/  Set  Memory  byte  pointer 
/  to  paae  3,  byte  367. 

/  Temporary  storase  byte. 

/  Save  resister  D  value. 

/  Mask  (=0000011 )  for  hish 
/  two  bits  of  byte  360. 

/  Call  FORMAT  routine. 

/  (converts  octal  byte 
/  to  ASCII  and  prints  it) 

/  Set  #  of  bits  shifted. 

/  Mask  (=00000111)  for  3 
/  middle  bits  of  byte  360. 


/  Sets  #  of  bits  shifted. 

/  Mask  (=00000111)  for  3 
/  low  bits  of  byte  360. 


/  Set  memory  byte  pointer 
/  to  paae  3,  byte  367. 

/  Temporary  storase  byte. 

/  Restore  value  to  rea  D. 
/  end  of  PNTBIN  routine. 


Subroutine  FORMAT. 

Description.  Converts  low-order  three  bits  at  03-360  in  SHIFT 
array  to  ASCII  and  prints  trie  octal  value. 

Entry  point!  06-040 

End  of  routine!  06-061 

CPU  Registers  used!  A,B,H,L 

Reserved  locations  used!  SHIFT  array  byte  at  03-360 
Input/Output  ports  used!  0UT+20,  OUTPUT  to  TTY 
Subroutines  called!  PRDYr  SHIFT 
Alternate  entry  points!  None 


FORMAT t CAL  002  260  /  Call  SHIFT  routine. 

/  (shifts  array  SHIFT  B 
/  bits! 

LLI  360  /  Set  byte  pointer. 


6  43 


LLI  360 


6 

45 

056 

LHI 

003 

/ 

Pase  3*  byte  360  is  1st 

0  03 

/ 

byte  of  array  SHIFT. 

6 

47 

307 

LAM 

/ 

Get  byte  360. 

6 

50 

242 

NDC 

/ 

Mask  for  bits  =  C  MasK. 

6 

51 

064 

OR  I 

260 

/ 

Convert  to  ASCII  value. 

260 

6 

53 

310 

LBA 

/ 

Temporary  save  A  in  B. 

6 

54 

106 

CAL 

005 

136  / 

Call  PRDY  routine. 

136 

/ 

(tests  for  TTY  printer 

005 

/ 

ready) 

6 

57 

301 

LAB 

/ 

Get  saved  A  value  in  B. 

6 

GO 

121 

0UT+20 

/ 

Print  it. 

6 

61 

007 

RET 

/ 

end  of  FORMAT  routine. 

6 

62 

000 

HLT 

Subroutine  CRLF. 

Description.  Outputs  the  carriaae  return  command  (0155 *  delays 
three  NOP  periods  (  SO  Microseconds)*  outputs  the 
line  feed  coMMand  (012)*  and  delays  two  NOP 
periods  (  40  microseconds). 

Entry  point!  OS- 100 

End  of  routine!  06-122 

CPlf  Reaisters  used!  A 

Reserved  locations  used!  None 

Input/Qutput  ports  used!  0UT+20*  OUTPUT  to  TTY 

Subroutines  called!  PRDY 

Alternate  entry  points!  None 


G 

100 

300 

CRLFrLAA 

/ 

Nop  (tiMe  delay) 

6 

101 

106 

CAL 

005 

136 

/ 

Call  PRDY  routine. 

136 

/ 

(tests  for  TTY  print 

005 

/ 

ready) 

6 

104 

006 

LAI 

015 

/ 

Load  ASCII  value  for 

015 

/ 

carriaae  return. 

G 

106 

121 

0UT+20 

/ 

Print  it. 

S 

107 

300 

LAA 

/ 

Nop  (time  delay) 

B 

1  10 

300 

LAA 

/ 

Nop  (time  delay) 

6 

11! 

300 

LAA 

/ 

Nop  (time  delay) 

6 

1  i  7 

106 

CAL 

005 

136 

/ 

Call  PRDY  routine. 

136 

/ 

(tests  for  printer 

005 

/ 

ready) 

6 

115 

006 

LAI 

012 

/ 

Load  ASCII  value  for 

012 

/ 

line  feed. 

6 

117 

121 

GUT+20 

f 

Print  it. 

F 

120 

300 

LAA 

t 

Nop  (time  delay) 

6 

121 

300 

LAA 

/ 

Nop  (time  delay) 

6 

122 

007 

RET 

/ 

end  of  CRLF  routine. 

S 

123 

000 

HLT 

Subroutine  TYMTAG. 

Description.  Called  by  GLQQK  to  chanse  ease  pointer  to  076. 

and  find  the  first  0  character  to  synchronize 
printout  of  last  256  bytes  recorded  on  maanetic 
tape . 

Entry  point!  06-!40 

End  of  routine!  06-160 

CPU  Resisters  used!  A.0.H*L 
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Reserved  locations  used!  None 
Input/Output  ports  used:  None 
Subroutines  called:  None 
Alternate  entry  points:  None 


6 

140 

056  TYMTAG 

>LHI 

003 

/ 

Set  memory  byte  pointer 

003 

/ 

to  page  3.  byte  227. 

6 

142 

066 

LLI 

227 

/ 

The  QLOQK  buffer  pointer 

227 

/ 

for  page  076  buffer. 

6 

144 

317 

LBM 

/ 

Get  pointer  "glue  8. 

S 

145 

010 

INB 

/ 

Increment  pointer. 

6 

146 

371 

LMB 

/ 

Restore  buffer  pointer. 

6 

147 

361 

LLB 

/ 

Set  memory  byte  pointer. 

6 

150 

056 

LHI 

076 

/ 

Set  memory  page  to  076. 

076 

6 

152 

307 

LAM 

/ 

Get  buffer  pointer  value 

6 

153 

074 

CPI 

377 

/ 

Is  value  =  ?  character  7 

377 

6 

155 

110 

JFZ 

006 

140  / 

Jump  to  TYMTAG  until 

140 

/ 

first  ?  found  in  buffer. 

006 

6 

160 

007 

RET 

/ 

end  of  TYMTAG  routine. 

Subroutine 

RDRCNTL. 

Description.  Turns  paper 

tape 

reader  ON. 

reads  one  byte,  and 

then  turns 

paper 

tape 

reader  OFF  with  each  call. 

Entry  point:  06-161 
End  of  routine!  06-175 
CPU  Registers  used:  ArS 
Reserved  locations  used:  None 

Input/Output  ports  used'.  OUT+22.  COMMAND  Latch  Register 

INP+O.  INPUT  from  TTY 

Subroutines  called!  RDY 
Alternate  entry  points:  None 


6 

161 

006 

RDRCNTL. LA I  001 

/ 

Load  turn  paper  tape 

001 

f 

reader  ON  command. 

6 

163 

123 

OUT+22 

/ 

Output  to  COMMAND  reg. 

6 

164 

106 

CAL  005 

036  / 

Call  RDY  routine. 

036 

/ 

(tests  for  reader  ready 

005 

/ 

status) 

6 

167 

101 

INP+O 

/ 

Input  TTY  tape  BYTE. 

6 

170 

310 

LBA 

/ 

Store  reg  A  in  reg  B. 

6 

171 

006 

RDROFF.LAI  000 

/ 

Load  turn  paper  tape 

000 

/ 

reader  OFF  command. 

6 

173 

123 

0UT+Z2 

/ 

Send  command. 

6 

174 

301 

LAB 

/ 

Restore  A  value  from  B. 

S 

175 

007 

RET 

/ 

end  of  RDRCNTL  routine. 

6 

176 

000 

HLT 

6 

177 

000 

HLT 

Subroutine 

MIN. 

Description.  Outputs  ei3ht  programmable  one-bit  commands  to 
the  experiments.  Currently  programmed  for  one 
minute  commands  to  the  Laser.  Vislab.  Eppley.  and 
Barnes.  Call  to  DWTFMT  is  to  allow  a  delay  for 
Eppley  filter  step  pulse.  Commands  are  given  at 
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the  end  of  the  one  Minute  samplins  scan  of  all 
channel s . 

Entrv  point!  06-200 

End  of  routine!  06-243 
CPU  Resisters  used!  A,E 
Reserved  locations  used!  None 

Input/Qutput  ports  used!  QUT+34,  EXPERIMENT  Latch  Re9ister 
Suoroutines  called!  DWTFMT 
Alternate  entry  points!  None 


6 

200 

304 

MIN, LAE 

/ 

Get  sample  tinte  Mask,  £. 

6 

201 

044 

NDI 

010 

/ 

Mask  with  00001000  to 

010 

/ 

test  bit  3  rate  ( 1  '/10' ) 

6 

203 

110 

JFZ 

006 

211 

/ 

Jump  to  MIN2  if  bits 

211 

/ 

match,  otherwise 

006 

/ 

continue . 

6 

206 

104 

JMP 

006 

217 

/ 

Jump  to  MINI  link. 

217 

006 

6 

211 

006 

MIN2 ,LAI 

017 

/ 

Load  experiment  command 

017 

/ 

resister  with  00001111. 

6 

213 

135 

QUT+34 

/ 

Output  to  EXP.  CQMND. 

S 

214 

104 

JMP 

006 

233 

/ 

Jump  to  GO. 

233 

006 

6 

217 

304 

MINI, LAE 

/ 

Get  sample  time  mask,  E. 

6 

220 

044 

NDI 

002 

/ 

Mask  with  00000010  to 

002 

/ 

test  for  1  min,  cont. 

6 

222 

no 

JFZ 

006 

230 

/ 

Jump  to  MIN3  if  on  bit 

230 

/ 

1  sample  rate. 

006 

S 

225 

104 

JMP 

006 

233 

/ 

Jump  to  GO 

233 

006 

S 

230 

006 

MIN3»LAI 

013 

1 

Load  experiment  resister 

013 

/ 

with  00001011. 

S 

232 

135 

OUT+34 

/ 

Output  to  EXP.  COMND. 

s 

233 

340 

GO, LEA 

/ 

Save  res  A  in  res  E. 

6 

234 

106 

CAL 

004 

140 

/ 

Call  DWTFMT  routine. 

140 

/ 

(writes  data  word  to 

004 

/ 

taPe>(40  microsec  delay) 

S 

237 

304 

Lae 

/ 

Restore  value  to  A. 

6 

240 

044 

NDI 

004 

/ 

Mask  with  00000100  to 

004 

/ 

reset  all  but  bit  2. 

S 

242 

135 

QUT+34 

/ 

Output  to  EXP.  COMND. 

6 

243 

007 

RET 

! 

end  of  MIN  routine. 

G 

244 

000 

HLT 

Subroutine  BLKCTR. 

Description.  Accumulates  the  total  number  of  blocks  written  to 
the  masnetic  tape  with  the  low  byte  stored  in 
03-372  and  the  hish  byte  stored  in  03-373. 

Entry  point!  06-250 
End  of  routine!  06-267 
CPU  Registers  used!  A,B,L 

Reserved  locations  used!  8LKCTR  hish  byte  at  03-373 

BLKCTR  low  byte  at  03-372 
Input/Output  ports  used!  None 
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I  mi.- 


Subroutines  called!!  STCK 
Alternate  entry  points!  None 


W 


[ ■_ 

I 

*r-* 


U 


s 

250 

066 

BLKCTR ,LLI 

373 

/ 

Set  byte  pointer  to  low 

373 

/ 

BLK  CTR  address. 

6 

252 

317 

LBM 

/ 

Get  stored  value. 

6 

253 

010 

INB 

/ 

Increment  it. 

6 

254 

371 

LMB 

/ 

Restore  it  in  memory. 

6 

255 

110 

JFZ 

006 

264 

/ 

Jump  to  CONT  if  low 

264 

/ 

BLK  CTR  byte  not  zero. 

006 

6 

2S0 

061 

DCL 

/ 

Point  to  hi3h  BLK  CTR. 

6 

261 

317 

LBM 

/ 

Get  stared  value. 

6 

262 

010 

INB 

/ 

Increment  it. 

6 

263 

371 

LMB 

/ 

Restore  it  in  memory. 

6 

264 

106 

CAL 

002 

070 

/ 

Call  STCK  routine. 

070 

/ 

(tests  For  ta°e  recorder 

002 

/ 

status  1 

6 

267 

007 

RET 

/ 

end  of  BLKCTR  routine. 

6 

270 

000 

HLT 

Program  INSTIN. 

Description!  Allows  entry  of  machine  coded  instructions  from  the 
TTY  Keyboard.  Displays  current  contents  on  DATA 
Latch  Register  LED  readouts  if  selected. 

Program  asks  for  page  as  H=  ,  and  For  on  page  byte 
address  as  L=  .  Accepts  three  octal  digits  from 
the  keyboard  and  packs  them  into  the  current  byte 
pointer  location.  Addresses  are  automatically 
incremented  to  the  end  of  the  current  pa9e.  P/O 
utility  program  package  to  allow  on-site  program 
updates  and  changes. 

Entry  point!  0G-300 

End  of  routine!  06-355 

CPU  Registers  used!  A,H,L 

Reserved  locations  used!  None 

Input/Output  ports  used!  QUT+20,  OUTPUT  to  TTY 

OUT+24,  OUTPUT  to  DATA  Latch  Register 
Subroutines  called!  CRLF,  PRDY,  SPACE,  PROGIN 
Alternate  entry  point!  None 


6 

300 

106 

INSTIN, CAL 

006 

100 

/ 

Call 

CRLF 

routine. 

100 

006 

6 

303 

106 

CAL 

005 

136 

/ 

Call 

PRDY 

routine . 

136 

005 

6 

306 

006 

LAI 

110 

/ 

Load 

ASCII 

character 

110 

6 

310 

121 

0UT+20 

/ 

Output  it 

to  TTY. 

6 

311 

106 

CAL 

005 

356 

/ 

Call 

SPACE 

routine. 

356 

/ 

(types  two 

spaces  on 

005 

/ 

current  li 

ne ) 

6 

314 

106 

CAL 

005 

200 

/ 

Call 

PROGIN  routine. 

200 

/ 

( pac! 

<s  3  i 

nput  disits 

005 

/ 

into 

one  o 

ctal  byte) 

6 

317 

350 

LHA 

/ 

Load 

page 

vai ue . 

S 

320 

106 

CAL 

006 

100 

/ 

Call 

CRLF 

routine. 
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100 

006 

6 

323 

106 

CAL 

005 

136 

/ 

Cal  1  PRDY  routine. 

136 

005 

6 

326 

006 

LAI 

114 

/ 

Load  ASCII  character  L. 

114 

6 

330 

121 

0UT+20 

/ 

Output  it  to  TTY. 

6 

331 

106 

CAL 

005 

356 

/ 

Call  SPACE  routine. 

356 

005 

6 

334 

106 

CAL 

005 

200 

/ 

Call  PRGGIN  routine. 

200 

005 

6 

337 

360 

LLA 

/ 

Set  byte  pointer. 

6 

340 

106 

TIE. CAL 

006 

too 

/ 

Call  CRLF  routine. 

100 

/ 

(sets  a  carriage  return 

006 

/ 

and  a  line  feed  on  TTY) 

6 

343 

307 

LAH 

/ 

Get  current  value  stored 

S 

344 

125 

QUT+24 

/ 

Output  to  DATA  Latch. 

6 

345 

106 

CAL 

005 

200 

/ 

Call  PROGIN  routine. 

200 

005 

6 

350 

370 

LMA 

/ 

Store  input  value. 

6 

35! 

060 

INL 

/ 

Increment  byte  pointer. 

S 

352 

104 

JMP 

006 

340 

/ 

Jump  to  TIE  and  set  next 

340 

/ 

octal  input  value. 

006 

6 

355 

000 

HLT 

/ 

end  of  INSTIN  routine. 

G 

356 

000 

HLT 

6 

357 

000 

HLT 

Subroutine  PUSH  A. 

Description:  Stores  current  value  of  register  A  on  pa9e  06.  byte 
357  for  later  retrival. 

Entry  point!  06-360 

Eni  of  routine’.  06-365 

CPU  Registers  used!  A.H.L 

Reserved  locations  used!  STORE  A  at  06-357 

Irput/Output  ports  used:  None 

Subroutines  called:  None 


Alternate 

entry 

point!  None 

6  360 

056 

PUSHA.LHI 

006 

/ 

Set  Memory  byte  pointer 

006 

/ 

to  paae  6.  byte  357. 

6  36Z 

066 

LL! 

357 

357 

6  364 

370 

LMA 

/ 

Store  register  A  value. 

5  365 

007 

RET 

/ 

end  of  PUSH  A  routine. 

Subroutine 

POP 

A. 

Description'.  Restores  value  stored  on  ease  06.  bvte  357  to 
re9ister  A.  Althou9h  the  stacK  is  only  one 
level  deep,  it  can  be  expanded  to  any  depth 
by  reassianina  the  stacK  array  location. 

Entry  point!  06-366 
End  of  routine:  06-374 


B-  40 


CPU  Reaisters  used!  A.H.L 
Reserved  locations  used:  Stack  byte  OG-357 
Input/Output  ports  used:  None 
Subroutines  called.'  None 
Alternate  entry  point:  None 


6 

366 

056 

POPA.LHI 

006 

/ 

Set  memory  byte  pointer 

006 

/ 

to  pase  6.  bvte  357. 

6 

370 

066 

LLI 

357 

357 

6 

372 

307 

LAN 

/ 

Load  re3ister  A  from  M. 

6 

373 

007 

RET 

/ 

end  of  POP  A  routine. 

6 

374 

000 

HLT 

6 

375 

000 

HLT 

6 

376 

000 

HLT 

S 

377 

000 

HLT 

Subroutine  LOADER. 

Description:  Loads  the  buffer  arear  ease  76.  bytes  000  to  377 
in  a  circular  fashion  with  TIKE  and  DATA  words  as 
they  are  recorded  on  «a9netic  tape.  A  dump  of  this 
buffer  by  the  proaram  GLOOK  aives  a  dynamic  picture 
of  the  data  loaaer  scannina  and  recordina  sequence. 
Entry  point:  07-000 
End  of  routine:  07-031 
CPU  Peaisters  used:  A.B.H.L 

Reserved  locations  used:  GLOOK  buffer  array,  pase  76.  b/tes  000-37 
Input/Output  ports  used:  None 
Subroutines  called:  None 
Alternate  entry  points!  None 


7 

0 

016 

LOADER. LB I 

360 

/ 

Set  byte  pointer  to  360. 

360 

/ 

(1st  byte  of  SHIFT) 

7 

2 

056 

LOOP .LHI 

003 

/ 

Set  memory  page  pointer 

003 

/ 

to  paae  3. 

7 

4 

010 

INB 

/ 

Increment  byte  pointer. 

7 

5 

301 

LAB 

/ 

Load  pointer  to  A. 

7 

6 

074 

CPI 

367 

/ 

Test  for  byte  367? 

367 

/ 

(at  end  of  SHIFT  array?) 

7 

10 

150 

JTZ 

007 

031 

/ 

Jump  to  OUT  if  3t  byte 

031 

/ 

367. 

007 

7 

13 

361 

LLB 

/ 

Load  B  value  to  L. 

7 

14 

307 

LAM 

/ 

Load  Memory  to  A. 

7 

15 

066 

LLI 

227 

/ 

Get  BUFFER  array  byte 

227 

/ 

pointer. 

7 

17 

327 

LCN 

/ 

Load  to  reaister  C. 

7 

20 

020 

INC 

t 

Increment  C. 

7 

21 

372 

LMC 

/ 

Store  BUFFER  pointer. 

7 

22 

362 

LLC 

/ 

Set  memory  byte  to  C. 

7 

23 

056 

LHI 

076 

/ 

Set  memory  pa3e  to  076. 

076 

7 

25 

370 

LMA 

/ 

Store  A  value  in  Memory. 

7 

26 

104 

JMP 

007 

002 

/ 

Jump  to  LOOP. 

002 

007 
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7  31  007  OUT, RET  /  end  of  LOADER  routine. 

7  32  000  HLT 


Subroutine  LDLINK. 

Description!  Short  “patch"  routine  used  by  the  subroutine  TWTFMT 
to  load  current  TIME  word  into  the  GLOQK  buffer. 
Entry  point!  07-050 
End  of  routine!  07-56 
CPU  Registers  used!  None 
Reserved  locations  used!  None 
Input/Qutput  ports  used!  None 
Subroutines  called!  PACKER,  LOADER 
Alternate  entry  point!  None 


7 

50 

106 

LDLINK, CAL 

002  320 

/ 

Call  PACKER  routine. 

320 

/ 

(packs  ASCII  time  word 

002 

/ 

into  hex  bytes  in  SHIFT) 

7 

53 

106 

CAL 

007  000 

/ 

Call  LOADER  routine. 

000 

/ 

(loads  GLOQK  buffer  with 

007 

/ 

tiMe/data  words  ) 

7 

56 

007 

RET 

/ 

end  of  LDLINK  routine. 

7 

57 

000 

HLT 

Subroutine 

AEGSEC . 

(formerly  LUXSEC) 

Description!  Controls  the  setting  and  resetting  of  the  n-second 
sampling  bit  (#5)  in  the  TIME  nasK  in  resister  E  to 
control  the  AEG  sanplins  rate  according  to  the  table! 
Lac  07-111  Loc  07-173  Sample  Interval 


004 

Oil 

016 


003 

5 

sec 

010 

10 

sec 

015 

15 

sec 

023 

030 

034 


022 

20 

sec 

027 

25 

sec 

035 

30 

sec 

Entrv  point!  07-100 

End  of  routine!  07-124 

CPU  Resisters  used!  A,B,E,L 

Reserved  locations  used!  TYMSYNC  counter  at  03-377 


Input/Output  ports  used!  None 
Subroutines  called!  None 


Alternate  entry  points!  None 

Note.  Set  LOC  100  as!  007  =  AEGSEC  OFF 

066  =  AEGSEC  ON 


7 

100 

066 

377 

AEGSEC, LL I 

377 

7 

102 

307 

LAM 

7 

103 

074 

000 

CPI 

000 

7 

105 

110 

12! 

007 

JFZ 

007 

7 

110 

076 

023 

l  MI 

023 

7 

112 

304 

LAE 

7 

1 17 

064 

040 

OR! 

040 

/  Set  memory  byte  pointer 
/  to  377,  TYMSYN  counter. 

/  Get  TYMSYN  counter  in  A. 

/  Is  value  stored  0  ? 

121  /  Jump  to  CTR  if  counter 
/  is  NOT  zero. 

/  Set  TYMSYN  =  023. 

/  Set  20  second  interval 
/  Get  sample  time  Mask  in  E. 
/  Mask  with  00100000  to  sec 
/  second  sample  rate. 
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i 

.  * 

i 

■ 

•41 


7 

115 

340 

LEA 

/  Store  sample  time  mass 

7 

116 

104 

JMP 

007 

124  /  Jump  to  EXIT. 

124 

007 

7 

121 

317 

CTR.LBM 

/  Move  TYMSYN  byte  to  B. 

7 

122 

Oil 

DCB 

/  Decrement  B. 

7 

123 

371 

LMB 

/  Store  TYMSYN  byte. 

7 

124 

007 

EXIT, RET 

/  end  of  AEGSEC  routine. 

7 

125 

000 

HLT 

7 

126 

000 

HLT 

7 

127 

000 

HLT 

7 

130 

000 

HLT 

7 

131 

000 

HLT 

7 

132 

000 

HLT 

7 

133 

000 

HLT 

7 

134 

000 

HLT 

7 

135 

000 

HLT 

7 

136 

000 

HLT 

7 

137 

000 

HLT 

7 

140 

076 

LMI 

060 

/  Not  used. 

060 

/ 

7 

142 

104 

JMP 

007 

147  /  Not  used. 

147 

007 

7 

145 

076 

LMI 

062 

/  Not  used. 

062 

7 

147 

007 

RET 

/  Not  used. 

Subroutine 

AEGLOC. 

(formerly  LUXLOC) 

Description!  Tests 

10's  of  seconds  and  unit  seconds  for  the  value 

0 

(decimal).  The 

test 

is  on  the  TIME  array  location 

03 

-211 

and  03-212 

which 

contain  ASCII  digits.  If 

both  10's  and  unit  seconds  are  zero,  resets  TYMSYNC 
counter  at  03-377  to  zero.  Synchronizes  on  minute 
time  changes. 

Entry  point!  07-150 
End  of  routine!  07-177 
CPU  Registers  used!  A,L 

Reserved  locations  used!  TIME  array  locations  03-211  and  03-212 

TYMSYNC  counter  at  03-377 
Input/Output  ports  used!  None 
Subroutines  called!  AEGSEC 
Alternate  entry  points!  None 


7 

150 

066 

AEGLOC, LLI 

211 

/ 

Get  10's  seconds  byte. 

211 

7 

152 

307 

LAM 

/ 

Move  to  A. 

7 

153 

074 

CPI 

060 

/ 

Compare  uith  ASCII  code 

060 

! 

for  disit  0. 

7 

155 

110 

JFZ 

007 

201 

/ 

Jump  to  SKIP  if  not  at 

201 

/ 

10's  seconds  =0. 

007 

7 

160 

066 

LLI 

212 

/ 

Get  unit  seconds  digit. 

212 

7 

162 

307 

LAM 

/ 

Move  to  A. 

7 

163 

074 

CPI 

060 

/ 

Compare  with  ASCII  codp 

060 

/ 

for  0. 

7 

165 

110 

JFZ 

007 

201 

/ 

Jump  to  SKIP  if  unit 

8-  43 


/  seconds  no 


zero 


201 

/ 

seconds  not  zero. 

|1(V» 

7 

;  70 

'SS6 

LLI  377 

/ 

Set  memory  byte  pointer 

377 

/ 

for  TYMSYN  counter. 

7 

172 

076 

LMI  022 

/ 

Set  TYMSYN  counter*  022. 

022 

/ 

Set  for  20  second  interval. 

7 

174 

104 

LAE 

/ 

Get  sample  time  masK  in  E. 

7 

!  75 

06  a 

OR I  040 

/ 

Mask  with  00100000  to  set  n 

040 

/ 

second  sampling  enable. 

7 

177 

340 

LEA 

/ 

Store  sample  time  mask  in  E 

7 

200 

007 

RET 

7 

201 

106 

SKIP, CAL  007  100 

/ 

Call  AEGSEC. 

7 

202 

100 

7 

203 

007 

7 

204 

007 

RET 

/ 

End  of  AEGLOC. 

7 

205 

000 

HLT 

7 

206 

000 

HLT 

7 

207 

000 

HLT 

Program  GLOOK. 

Description.  Prints  out  the  last  256  bytes  written  to  the  magnetic 
tape  and  returns  control  to  the  MAIN  program, 
formats  the  printout  with  one  time  word  or  data  word 
on  each  line  of  printout. 

Entry  point!  07-210 
End  of  routine!  07-232 
CPU  Registers  used!  E 

Reserved  locations  used!  GLOOK  arrayt  all  of  page  76 
Input /Output  ports  used!  None 
Subroutines  called!  TYMTAG.  XFER.  DPTFMT 
Alternate  entry  points!  None 


7 

210 

106 

GLOOK . CAL 

006 

140 

/ 

Call  TYMTAG  routine. 

140 

/ 

(locates  1st  ?  character 

006 

/ 

in  GLOOK  buffer) 

7 

213 

04G 

LEI 

052 

/ 

Set  #  print  lines 

05? 

/ 

counter . 

7 

215 

106 

RUN, CAL 

007 

242 

/ 

Cal  1  XFER  routine. 

2  42 

/ 

(transfers  buffer  bytes 

007 

/ 

to  SHIFT  for  printing) 

7 

220 

105 

CAL 

003 

000 

/ 

Call  DPTFMT  routine. 

000 

/ 

(formats  bytes  in  SHIFT 

003 

/ 

array.  HEX  to  ASCII) 

7 

223 

041 

DCE 

/ 

Decrement  E. 

7 

224 

110 

JFZ 

007 

215 

/ 

Jump  to  RUN  until  E 

215 

/ 

lines  are  printed. 

007 

7 

227 

104 

JMP 

000 

073 

/ 

Jump  to  MAIN,  re-enter 

073 

/ 

the  auto  sample/write 

00,-> 

/ 

to  mag  tape  mode. 

7 

232 

000 

HLT 

/ 

end  of  GLOOK  routine. 

Subrout  me 

XFER. 

Description:  Transfers  bytes  stored  in  GLOOK  array  (page  76)  to 
SHIFT  array  for  printing. 

Entry  point!  07-242 
Frd  of  routine!  07-274 


CPU  Registers  used!  A,B,C,H,L 

Reserved  locations  used!  QLOOK  array,  all  of  ra9e  76 

SHIFT  array  locations  03-361  to  03-366 
Input/Output  ports  used!  None 
Subroutines  called!  None 
Alternate  entry  points.'  None 


7 

242 

026 

XFER.LCI 

361 

/ 

Set  SHIFT  array  pointer 

261 

/ 

to  b  rte  1 . 

7 

244 

056 

AGN/LHI 

003 

/ 

Set  memory  byte  pointer 

003 

/ 

to  page  3,  byte  227. 

7 

246 

066 

LLI 

227 

/ 

QLOOK  buffer  pointer. 

227 

7 

250 

317 

LBN 

/ 

Store  pointer  in  9. 

7 

251 

367 

LLM 

/ 

Set  memory  byte  -  B. 

7 

252 

056 

LHI 

076 

/ 

Set  memory  page  pointer 

076 

/ 

to  page  076. 

7 

254 

307 

LAM 

/ 

Get  buffer  b-/te  in  A. 

7 

255 

056 

LHI 

003 

/ 

Set  memory  page  pointer 

003 

/ 

to  page  3. 

7 

257 

362 

LLC 

/ 

Set  SHIFT  b/te  pointer. 

7 

260 

370 

LMA 

/ 

Buffer  byte  to  SHIFT. 

7 

261 

010 

INB 

/ 

Increment,  buffer  pointer 

7 

262 

066 

LLI 

227 

/ 

Set  memory  byte  pointer 

227 

/ 

to  227. 

7 

264 

371 

LMB 

/ 

Store  buffer  pointer. 

7 

265 

020 

INC 

/ 

Increment  line  counter. 

7 

266 

302 

LAC 

/ 

Move  C  to  A. 

7 

267 

074 

CPI 

367 

/ 

Is  pointer  value  =  SST"5 

367 

7 

271 

no 

JFZ 

007 

244  / 

Jump  to  AGN  until 

244 

/ 

a  complete  time  or  data 

007 

/ 

word  transfered  to  SHIFT 

7 

274 

007 

RET 

/ 

end  of  XFER  routine. 

7 

275 

000 

HLT 

7 

276 

000 

HLT 

7 

277 

000 

HLT 

Subroutine  ADTEST. 

Description.  A  test  program  that  continuously  samples  the  anal03 
channel  selected  by  the  CONSOLE  switches  (octal). 
The  analoa  channel  number  is  displayed  on  the 
ANALOG  ADDRESS  Latch  Register  and  the  channel 
discrete  bits  are  displayed  on  the  DATA  Latch 
Register  LEDs. 

Entry  point!  07-300 
End  of  routine!  07-341 
CPU  Registers  used!  A,H,L 
Reserved  locations  used!  None 

Innut/Output  ports  used!  INP+G,  CONSOLE  Switches 

QUT+24,  DATA  Latch  Register 

Subroutines  called!  CLEAR,  DPTFMT ,  DIGMUX.  LINK  in  CHTEST 
Alternate  entry  points!  None 


300 

106 

ADTEST, CAL 

004 

200  f 

Call 

CLEAR  routine. 

200 

f 

(ini 

tializes  counters 

004 

! 

and 

pointers ) 

303 

056 

LHI 

OOZ 

/ 

Set 

memory  byte  pointer 

B-  45 


Uj  Ui 


002 

/ 

to  page  2,  byte  200. 

7 

305 

066 

LLI 

200 

/ 

Defeats  call  for  MRCDR 

200 

/ 

to  write  to  mas  tape. 

7 

307 

076 

LMI 

007 

/ 

Replace  code  with  RET. 

007 

7 

3: : 

107 

AGIN, INP+S 

/ 

Input  CONSOLE  switches. 

7 

3  '■  ? 

064 

OR  I 

300 

/ 

OR  with  11000000  to  3et 

300 

/ 

REQUEST  array  address. 

7 

314 

066 

LHI 

003 

/ 

Set  memory  page  pointer 

003 

/ 

to  pase  3. 

7 

316 

360 

LLA 

1 

Set  memory  bvte  =  A. 

7 

317 

106 

CAL 

0  00 

270 

/ 

Call  LINK  entry  in 

270 

/ 

CHTEST  routine. 

000 

7 

'377 

106 

CAL 

003 

000 

/ 

Call  DPTFMT  routine. 

000 

/ 

(converts  and  prints 

003 

/ 

hex  data  word) 

7 

325 

106 

CAL 

004 

000 

/ 

Call  DIGMUX  routine. 

000 

/ 

(loads  SHIFT  with  data 

004 

/ 

word  bytes) 

7 

330 

056 

LHI 

003 

/ 

Set  memory  byte  pointer 

003 

/ 

to  pane  3,  byte  364. 

7 

332 

066 

LLI 

364 

/ 

Pointers  to  discrete 

364 

/ 

data  byte  in  SHIFT. 

7 

334 

307 

LAM 

/ 

Load  to  A. 

7 

335 

125 

OUT+24 

/ 

Output  to  DATA  latch. 

7 

336 

104 

JMP 

007 

311 

/ 

Jump  to  AGN. 

311 

007 

7 

341 

000 

HLT 

/ 

end  of  ADTEST  routine. 

Subroutine  ENDE. 

Description!  When  called*  terminates  uritins  to  the  magnetic 

tape  at  the  end  of  the  current  blocK.  Writes  one 
blocK  of  zero  length  and  stops  data  logger, 
ntrr  point:  07-342 
no  of  routine!  07-373 
CPI!  Registers  used!  H*L 
Reser"ed  locations  used:  None 
input /Output  ports  used!  None 
Subroutines  called:  MDUMP,  STCK»  GAP 
Alternate  entry  ponts:  None 


7 

?4Z 

056 

ENDE , LHI 

005 

/ 

Set  memory  bvte  pointer 

005 

/ 

tn  pa3e  5*  byte  355. 

7 

344 

066 

LLI 

355 

/ 

Replace  instruction 

355 

/ 

with  RET. 

7 

346 

076 

LMI 

007 

/ 

Do  it. 

007 

7 

350 

056 

LHI 

003 

/ 

Set  memory  bvte  pointer 

003 

/ 

to  pase  3>  byte  372. 

7 

352 

066 

LLI 

372 

372 

7 

354 

106 

CAL 

005 

300 

/ 

Call  MDUMP  routine. 

300 

/ 

(used  for  time  delay) 

005 

7 

357 

106 

CAL 

002 

070 

/ 

Cal)  STCK  routine. 

070 

/ 

(tests  recorder  status) 

B-  46 


K’/. 

'r.  • 
u 


» 


l  V 

•V 


•• 

»  * 


002 

y 

362 

10S 

CAL. 

002 

171  / 

Cal  I  GAP  routine . 

171 

/ 

1  issue?  recorder  GAP 

002 

/ 

command ) 

7 

365 

05S 

LHI 

005 

/ 

Set  meMor'/  brte  pointer 

00  5 

! 

to  pase  5.  byte  355. 

7 

367 

OGS 

•  #  r 
L_L_  i 

355 

! 

Restores  instruction 

355 

/ 

in  MDUMP  to  HLT (-000). 

7 

371 

07S 

LMI 

000 

/ 

Do  it. 

000 

-7 

373 

000 

HLT 

/ 

end  of  ENDE  routine. 

7 

374 

000 

HLT 

7 

375 

000 

HLT 

7 

376 

000 

HLT 

7 

377 

000 

HLT 
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